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/ [Page 1] 
About - 1 

Option Explicit 1 Force explicit variable declaration. 

Private Sub About_Button_val ueChanged(Byval value As Boolean) 

About .Hide 

End Sub 
[Page 2] 
Aspi rate - 1 

Option Explicit 1 Force explicit variable declaration. 
Private sub Samp_Exp_Change() 
Cal 1 Get_Expams 
End Sub 

Private Sub samp__lnt_ChangeO 
Cal 1 Get_Expams 
End sub 

Private sub Samp_Ri nse_Change() 
Call Get_Expams 
End Sub 

private Sub Syri nge_Parms_Click() 

Cal 1 Get__Expams 

Aspi rate. Hide 

End Sub 
[Page 3] 
DetPams - 1 

Option Explicit ' 

Private Sub Close 

DetPams. Hide 

End Sub 
[Page 4] 
Diagnose - 1 

Option Explicit ' Force explicit variable declaration. 
Defint A-z 

Dim current^\xis As String 'Speed Control 
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Private Sub CenterCurrentFormO 

Me. Move ((Screen. width - Me. width) / 2), ((screen. Height - Me. Height) / 2) 
End Sub 

Private Sub Command2_Click() 

ReturnMssg. caption = "" 
End Sub 

Private Sub DevStatts_click() 

If StatusAry%(CurrentArm, CurrentDev) Then 
StatusLabel .caption = "Busy" 
StatusLabel .Backcolor = &HFF& 
Else 

StatusLabel .caption = "Ready" 
StatusLabel .Backcolor = &HFFOO& 
End If 
End Sub 

Private Sub LastErr_cl i ck() 

Diagnose ! ErrorLabel . caption = "0" 
Diagnose lErrorLabel .Backcolor = &HFF00& 

End sub 

Private Function ExtractStatus%(Teststri ng$) 
Dim statusPosition As Long 

StatusPosi tion = mstr(TestStri ng$ , chr$(2)) + 1 'status byte position 

if StatusPosition > 1 Then 
'This is an RSP reply! 

Extractstatus% = Asc(Mid$(TestString$, StatusPosition, 1)) 
Else 

Extractstatus% = -1 
End if 
End Function 

Private Sub Execute_Cl i ck() 

Dim cmd_Format As String, Target_Device As String 

1 NEW COMMAND SENT - ENABLE REPLY CHECK 
Ignore_Replies = 0 
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If CurrentDev = 8 Then 
Target_Device = "rsp" 
Else 

Target_Device = "kloehn" 
End If 

If Protocol_RSP(0) .value = True Then 
Cmd_Format = "RSP" 
Else 

Cmd_Format = "OEM" 
End If 

Call Set_Command_Mode(Cmd__Format , CurrentDev, Target_Devi ce) 
select case Last_cmd_Sent 
Case "RSP" 

'If Command Sent Not for RSP - ignore unsolicited RSP Reply's 
If CurrentDev <> 8 Then 

XL_Cmd_sent = 1 

Else 

XL_cmd_sent = 0 
End If 

'Place Command in Queue 
[Page 5] 
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^PushToQueue Transmitstr(val (SeqNumTxt) , CurrentArm, CurrentDev, "", ArgStrTxt 
& "") 

End Select 

If Val (SeqNumTxt) > 0 Then 

StatusAry%(CurrentArm, CurrentDev) = -1 

'Busy until a reply is received from RSP 
End If 
End Sub 

Private Sub Form_LoadQ 
Diagnose. Top = 0 
Diagnose. Left = 0 
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CenterCur rent Form 
'Set default values: 
CurrentDev = 8 
CurrentArm = 1 
CmdQueueSize = 64 

ini tCmdQueue 

ReDim StatusAry%(l To 2, 1 To 9) 
End Sub 

Private Sub Form_unload(Cancel As integer) 
Dim T& 

if RSPComm. Portopen Then 

1 wait 10 seconds for data to be transmitted 

T& = Timer + 10 

Do while RSPComm. OutBufferCount 

Call_DoEvents 'Ret = DoEvents (old) 
if Timer > T& Then 

Select Case MsgBox("Data cannot be sent", 34) 

• Abort 

Case 3 

Cancel = True 
Exit Sub 

1 Retry 

Case 4 

T& = Timer + 10 

1 Ignore 

Case 5 

Exit Do 
End Select 
End if 
Loop 

DoEvents_Flag = False 
RSPComm. Portopen = 0 
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End If 

End 
End Sub 

private Sub Errorl_abel_ChangeO 
'Debug. Print "An Error has occured I!" 
End Sub 

, *********************** ************************** 
'The Oncomm event is used for trapping 
'communications events and errors. 

i ************************************************* 

i 

private Static Sub RSPComm__onCommO 
[Page 6] 
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Dim EVMsg$ 
Dim ERMsg$ 
Dim Ret As integer 

• — Branch according to the commEvent Prop.. 
Select Case RSPComm. CommEvent 
1 — Event messages 

Case MSCOMM_EV_RECEIVE 

'Note: ShowData puts the string into CmdAry$(l) 
showData RSPLog !Term, (RSPComm. input) 

Case MSCOMM_EV_SEND 

case MSCOMM_EV_CTS 

'EVMsg$ = "Change in CTS Detected" 
case MSCOMM_EV_DSR 

' EVMsg$ = "Change in DSR Detected" 
Case MSCOMM_EV_CD 

f EVMsg$ = "Change in CD Detected" 

Case MSCOMM_EV_RING 
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' EVMsgS = "The Phone is Ringing" 

Case MSCOMM_EV_EOF 

' EVMsgS = "End of File Detected" 

1 — Error messages 

Case MSCOMM_ER_BREAK 

'EVMsgS = "Break Received" 
Case MSCOMM_ER_CTSTO 

1 ERMsgS = "CTS Timeout" 

Case MSCOMM_ER_DSRTO 

1 ERMsg$ = "DSR Timeout" 
Case MSCOMM_ER_ FRAME 

EVMsgS = "Framing Error" 

Case MSCOMM_ER_OVERRUN 

ERMsg$ = "overrun Error" 

Case MSCOMM_ER_CDTO 

1 ERMsg$ = "Carrier Detect Timeout" 
Case MSCOMM_ER_RXOVER 

ERMsgS = "Receive Buffer overflow" 
Case MSCOMM_ER_RX PARITY 

EVMsg$ = "Parity Error" 
Case MSCOMM_ER_TXFULL 

ERMsgS = "Transmit Buffer Full" 
Case Else 

ERMsgS = "Unknown error or event" 
End Select 

if Len (ERMsgS) Then 

• Display error messages in an alert 

1 message box. 
Beep 

Ret = MsgBox(ERMsg$, 1, "Press Cancel to Quit, Ok to ignore.") 
ERMsgS = "" 

if cancel (2) was pressed 
If Ret = 2 Then 
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RSPComm.PortOpen = 0 'Close the port and quit 
End If 
End If 
End Sub 

private Sub Mssg_change() 
Dim Ret As Integer 

'This control receives commands from other forms 

Select Case l_eft$(Mssg. caption, 1) 

case "Q" 'Quit 

' Use Forrtuunload since it has code to check 

for un sent data and open log file 

ForrruUnload Ret 

Case "E" 'Execute 
[Page 7] 
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'Command4_Click 
call Auto_Execute 
Case "F" 'Clear Error Flag 

LastErr_Click 
case Else 
End select 
Mssg. caption = "" 
'reinitialize it 
End Sub 

Private Sub option2„click(lndex as integer) 

CurrentArm = index + 1 
End sub 

Private Sub Option4_Click(lndex As integer) 

CurrentDev = index + 1 
End Sub 

********************************************** 

'Adds data to the Term control's .Text property. 
'Also filters control characters such as Back space 
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1 Char ri age Return and Line Feed, and writes data to 

'an open log file, 
i 

'Back space chars, delete the character to the left, 
'either in the .Text property, or the passed string. 
'Line Feed characters are appended to all Char ri age 
'Returns. The size of the Term control's Text 
'property is also monitored so that it never 
'exceeds 16384 characters. 

• ************************************************** 
i 

Private Static Sub showData(Term As Control, Dta$) 
'On Error Resume Next 
Dim Nd, i 

Dim sol i cited Flag% 

'SolicitedFlag% = -1 means this is a solicited reply 
'Solici tedFlag% = 0 means this is an UNsoli cited reply 
'Replace CR with chr$(3) in the case of data from ME-10: 
i = mstr(Dta$, chr$(13)) 
Do while i > 0 

Mid$(Dta$, i , 1) = chr$(3) 

i = mstr(Dta$, Chr$(13)) 
Loop 

'ShowMsgData Messages !MsgFi eld, Dta$; 

XLReceive Dta$, solicitedFlag% 

'AExtracts replies and saves to CmdAry$(l,x) 

1 — Make sure the existing text doesn't get 

■ too large. 

Nd = Len(RSPLog!Term.Text) 

If Nd >= 16384 Then 

RSPLoglTerm.Text = Mid$(RSPLog!Term.Text, 4097) 

Nd = Len(RSPLogiTerm.Text) 
End if 

■ — point to the end of Term's data 
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RSPLoglTerm.sel Start = Nd 
1 Filter/handle Back space characters 

DO 

i = mstr(Dta$, Chr$(8)) 
if i Then 

if i = 1 Then 

RSPLoglTerm.SelStart = Nd - 1 

RSPLoglTerm.sel Length = 1 

Dta$ = Mid$(Dta$, i + 1) 

[page 8] 
Diagnose - 5 

Else 

Dta$ = Left$(Dta$, i - 2) + Mid$(Dta$, i + 1) 
End If 
End If 
Loop while i 

• Elliminate Line Feeds (put back below) 

DO 

i = lnStr(Dta$, Chr$(10)) 
If i Then 

Dta$ = Left$ (Dta$, i - 1) + Mid$(Dta$, i + 1) 
End if 
Loop while i 

■ Make sure all Charriage Returns have a 

Line Feed 

i = 1 
Do 

i = inStr(i, Dta$, Chr$(13)) 
if i Then 

Dta$ = Left$(Dta$, i) + Chr$(10) + Mid$(Dta$, i + 1) 
i = i + 1 
End If 
Loop while i 
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Add the filtered data to .Text 

The following is for debugging only 

If RSPl_og!Optionl(2) <> True Then 

'Add CR/LF to string following char after ETX (chr$(03)) 

i = 1 

DO 

i = instr(i, Dta$, Chr$(3)) 
If i Then 

If i_en(Dta$) > i Then i = i + 1 'we want char after etx included 
If l_en(Dta$) = i + 1 And Right$(Dta$, 1) = Chr$(255) Then i = i + 1 
'Above line: sometimes an additional Chr$(255) can occur 
Dta$ = Left$CDta$, i) & Chr$(13) & Chr$(10) & Mid$(Dta$, i + 1) 
i = i + 2 
End if 
Loop while i 

RSPLoglTerm. ForeColor = &HCO 'Red 
'if RSPLogloptionl(O) = True Then 

'RSPLoglTerm. SelText = Dta$ 'ASCII 
'Else 

1 RSPLoglTerm. SelText = stri ngToHex(Dta$) 'hex 
'End If 
End If 

The above is for debugging only 

if solicitedFlag% = 0 Then 

'Assume this is in response to typed input from the user 
'Replace ETX (chr$(03)) with CR/LF: 

I = mstr(Dta$, Chr$(3)) 

Do While I > 0 

Dta$ = Left$(Dta$, I - 1) + Chr$(13) + Chr$(10) + Mid$(Dta$, I + 1) 
I = mstr(Dta$, Chr$(3)) 
Loop 

RSPLoglTerm.ForeColor = &H0 'Black 
Term. SelText = Dta$ 
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End If 
End Sub 

public Sub Reset_RSP_ClickO 

Call Set_Command_Nlode( ,, RSP M , 8, "RSP") 

_ . . . . M— — H It II II II III! 

Execute^Pnrrntive PI , , , 

'Set Position Recovery when Step Loss Detected 

Execute_Prirmtive SP , 1 , 

End sub 
[page 9] 
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, ********************************** *************** 
'Key strokes trapped here are sent to the Comm 
'control where they are echoed back via the 
' OnComm/MSCOMM_EV_RECElVE event, and displayed 
'through the showData procedure. 

, ************************************************* 
private sub Term_KeyPress(KeyAsci i As integer) 

1 If the port is opened, 

If RSPComm. PortOpen Then 

1 uppercase filter on? 

if casexlate Then KeyAscii = Asc(ucase$(Chr$(KeyAsci i ))) 
'--- send the key stroke to the port 
RSPComm. output = Chr$(KeyAsci i ) 

• unless Echo is on, there is no need to 

let the Text control display the key. 
if Not Echo Then KeyAscii = 0 
End if 
End Sub 

Private sub RSPort_cl i ck(lndex As integer) 
Dim i As integer 
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RSP_Port = index 

For i = 1 To 4 

If HachlHachPort(i). value = True And Diagnose !RSPort(i) .value = True Then 
MsgBox "Identical serial Ports !!", vbExclamation , "System Error" 
Exit For 
End if 
Next i 
End Sub 

private Sub Timerl_Timer() 

'Note that PushToQueue fills in CmdAry$(0,x) 
'& RSPComm_commEvent = mscomm_ev_receive fills in cmdAry$(l,x) 
'This Timer routine must transmit the commands in cmdAry$(0,x) 
'& maintain TimesCmdSent () & signal an error if this = 7. 
'it must examine replies and take action based on them or 
'handle errors indicated by them. 
Dim DeviceNum$ 
Dim CRLF$ 

Dim Hex_Reply as String 
CRLF$ = Chr$(13) & Chr$(10) 

If Not RSPComm.PortOpen Then Exit sub 

If cmdNextExec < 1 Then Exit sub 

'There is a and to be sent or last response not yet checked: 
DeviceNum$ = Mid$(CmdAry$(0, CmdNextExec), 3, 1) 
'Note: in case of PH or MV cmd to ME-10, this will be chr$(13) 
'===== Next Cmd sent at least once? 
If TimesCmdSent (CmdNextExec) > 0 Then 
'Reply rec'vd for next cmd? 
if cmdAry$(l, CmdNextExec) = "" Then 
'Next cmd sent < 7 times?: 
If TimesCmdSent(CmdNextExec) < 7 Then 
'Send cmd & increment Timessent: 
GoSub SendCmd 

Else 

XLErrorHandler DeviceNum$, -1 'Device not responding 
Page 12 



Automated Kinetic solubility Assay Apparatus and Method.txt 
End If 

Else 



[page 10] 
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'A reply was rec'vd; now check it: 
Gosub commandEcho 

Hex_Reply = StringToHex(CmdAry$(l, CmdNextExec)) 
XLReplyHandler Hex_Reply 
End If 

Else 'Send cmd & increment TimesSent: 

Gosub SendCmd 

If Len(CmdAry$(0, CmdNextExec)) = 8 Then 'And l_ast_Cmd_Sent = "RSP" 

Then 

'This cmd is an Ack to the RSP so set up dummy response: «41 63 

6B» 

' ShowMsgData Messages !MsgFi eld, "SendCmd = "; 
StringToHex(CmdAry$(0, CmdNextExec)) 

CmdAry$(l, CmdNextExec) = "Ack" 

End If 

End If 

Exit Sub 
CommandEcho: 

If RSPI_og!Optionl(2) = True Then Return 

RSPLoglTerm.SelText = CRLF$ 

If RSPLog!Optionl(0) = True Then 

RSPLoglTerm.SelText = "«" & CmdAry$(0, CmdNextExec) & "»" & CRLF$ 

'ASCII 

Else 

RSPLoglTerm.SelText = "«" & stringToHex(CmdAry$(l, CmdNextExec)) & "»" 
& CRLF$ 'HEX 

'Clipboard.SetText = stringToHex(CmdAry$(0, CmdNextExec)) 
End If 

'Term. Text = Term. Text & "«" & CmdAry$(0, CmdNextExec) & "»" & CRLF$ 

Return 
SendCmd: 

RSPComm. Output = CmdAry$(0, CmdNextExec) 
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TimesCmdSent(CmdNextExec) = TimesCmdSent(CmdNextExec) + 1 

Return 
End Sub 

joggles the state of the port (open or closed). 

private Sub TogglePortstateO 
Dim temp$ 

On Error Resume Next 

Dim OpenFlag 

RSPComm.Portopen = Not RSPComm. PortOpen 

If Err Then MsgBox ErrorS & Check Port settings!", 48 

OpenFlag = RSPComm.Portopen 

if OpenFlag Then temp$ = "Port Open" Else temp$ = "Port closed" 
End Sub 

private Sub XLErrorHandler(DeviceNum$, var) 
Dim Msg as string, tempi as integer 
If Last_Cmd_Sent = "RSP" Then 
Beep 

Select Case var 

Case -1: Msg = "Device not responding to commands!" 

End Select 

tempi = MsgBox(Msg, 48, "Device #" + DeviceNumS + " Error:") 
'Ask if user wishes to retry or to reinit all 
initcmdQueue 
Exit Sub 

Else 

InitcmdQueue 
End If 
End Sub 

private Static Sub XLRecei ve(Byval var$, solicitedFlag%) 
[page 11] 
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•Returns a completed reply string or empty string if none 
, SolicitedFlag% = -1 means this is a solicited reply 
'SolicitedFlag% = 0 means this is an UNsoli cited reply 
Di m i , j 
Dim temp$ 

Dim Parti al Reply* 'holds incomplete replies 

Dim Thisstatus% 

Dim TempErrstate% 

Dim TempArm%, TempDevAddr% 

temp$ = ,,n 

var$ = Parti alReply$ & var$ 'Put back partial from last time! 
i = instr(var$, chr$(3)) 'Chr$(3) signals end of reply string 
Do while i 

temp$ = i_eft$(var$, i) 

Thisstatus% = Extractstatus%(temp$) 

If Thisstatus% <> 64 Then "64 is ack from RSP; others need ack from PC 
GoSub chkErrState 
Gosub Chkstatus 
GoSub updateRetMssg 

PushToQueue Transmitstr(0, TempArm%, TempDevAddr%, "", ,,M ) "Ack reply from 

RSP 

End If 

if cmdNextExec > 0 Then CmdAry$(l, CmdNextExec) = temp$ 
var$ = Mid$(var$, i + 2) 'String with reply removed 

'+2 dumps the chksum char 
i = lnstr(var$, Chr$(3)) 'Chr$(3) signals end of reply string 

LOOP 

Parti alReply$ = var$ 
if CmdNextExec = 0 Then 

SolicitedFlag% = 0 'unsolicited 

' (Unsolicited response may be a response to user typing at terminal) 
Else 

SolicitedFlag% = -1 
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End If 
Exit Sub 
ChkErrState: 

•Check the status byte & update the XL status display: 
if Thisstatus% > -1 Then 

if (Thisstatus% And 16) = 16 Then 'Check bit 4: 
TempErrState% =0 "no error 
Else 

TempErrState% = -1 "error code exists 

i = mstr(temp$, Chr$(2)) + 4 'Chr$(2) signals start of reply string 
Diagnose! ErrorLabel .caption = Mid$(temp$, i, 1) 
Diagnose !Errorl_abel .BackColor = &HFF& 
End If 
End If 
Return 
ChkStatus: 

i = mstrCtempS, chr$(2)) + 2 'chr$(2) signals start of reply string 
TempArm% = val (Mid$(temp$, i, 1)) 

i = instr(temp$, Chr$(2)) + 3 'Chr$(2) signals start of reply string 
TempDevAddr% = val (Mid$(temp$, i, 1)) 

If TempArm% > 0 And TempArm% < 3 And TempDevAddr% > 0 Then 
StatusAry%(TempArm%, TempDevAddr%) = 0 1 status=ready 
End If 
Return 

UpdateRetMssg: 

If TempErrState% = 0 Then 'no error 

i = lnstr(temp$, Chr$(2)) + 4 'Chr$(2) signals start of reply string 

Else 
[Page 12] 
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i = mstr(temp$, Chr$(2)) + 5 , Chr$(2) signals start of reply string 
End if 

j = lnstr(temp$, Chr$(3)) 'Chr$(3) signals end of reply string 

if j > i Then 
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Diagnose iReturnMssg. caption = Mid$(temp$, i, j - i) 
End If 
Return 

End sub 

private Sub XLReplyHandl er(temp$) 

Dim ReplyDataLen as Long 

If lgnore_Replies = 1 Then Exit Sub 

TimesCmdSent(CmdNextExec) = -1 'This cmd done 

'===== increment pointer to next cmd to be sent: 

if cmdNextExec = cmdQueueSize Then 
CmdNextExec = 1 

Else 

CmdNextExec = CmdNextExec + 1 

End If 
i 

'Error Detection & correction Factor 
'Branch According to Last Command sent 
Select Case Last_cmd_Sent 
Case "RSP" 

'ShowMsgData Messages !MsgFi eld , " ** Branching to Reply ecd **" 
ReplyECD temp$ 

if TimesCmdSent (CmdNextExec) = -1 Then CmdNextExec = 0 
End Select 

End Sub 
[page 13] 
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Option Explicit 1 Force explicit variable declaration. 

private Sub Buffer_optionl_Click(value as integer) 

pH_Text. Enabled = True 

sol vent_Text -Enabled = False 

End Sub 

private Sub AVol_click(index as integer) 
call Get_Expams 
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End Sub 

private Sub Buffer_Option_Cl i ck() 
pH_Text. Enabled = True 
Sol vent_Text. Enabled = False 
End Sub 

private Sub Close_Button_Click() 
Call Get_Expams 
Expams .Hide 
End Sub 

private sub CVol_Cl i ck(index As integer) 
Call Get_Expams 
End Sub 

private Sub Filter_Option_click() 
wave_Text. Enabled = True 
End Sub 

private Sub Form_Load() 
Call Get_Expams 
End Sub 

private Sub No_Fil ter_Cl ick() 
wave_Text . Enabl ed = False 
End Sub 

Private Sub optThom_Click(lndex As Integer) 
'Debug. Print index 
End Sub 

Private Sub pH_Defaul t_Button_Cli ck() 
Buffer_Opti on. value = True 
pH_rext.Text = "7" 
End Sub 

private Sub Range_Click(lndex as integer) 
Call Get_Expams 
End sub 

Private Sub sconc_Click(mdex as integer) 
Call Get__Expams 
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End Sub 

private Sub sol vent__option_Cl i ck() 
pH_Text . Enabl ed = False 
Sol vent^Text. Enabled = True 
End Sub 

private Sub wave_Default_Click() 

Filter_Opti on .value = True 

wave_Text.Text = "650" 

End Sub 
[Page 14] 
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private Sub commandl_cl i ckO 
CommonDi al ogl . Showopen 
Network_Path = CommonDi al ogl. FileName 
End Sub 

private Sub Browse_Button_cl i ck() 
CommonDi al ogl . ShowOpen 
Path = CommonDi al ogl. FileName 
End Sub 

private Sub closeButton_Click() 
Export. Hide 
End Sub 

Private Sub DTStamp_cl i ck() 
Fname. Enabled = False 
End Sub 

Private Sub Form_Load() 
Call HighDose_Chk_Click 
End Sub 

private Sub HighDose_Chk_Click() 
If Hi ghDose_Chk. value = 1 Then 

Mi nsol . Enabled = True 

Else 

Mi nsol .Enabled = False 
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End if 
End Sub 

private Sub other_Click() 

Fname. Enabled = True 

End Sub 
[page 15] 
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option Explicit 1 Force explicit variable declaration. 

private Sub CAL_Button_Cl i ck() 

LastLitLED = 1 

Call Momentary_Contact(20) 

call ldle_Time(0. 5) 

Call Data^Acq_Click 

call idle_Time(0.5) 

call Machine__status 

End Sub 

private Sub Data_Acq_Click() 

Dim CommData as String, i As integer, ret_token$ 

Reacqui re: 

Pri nt_Button_Cl i ck 

ldle_Time (0.5) 

CommData = Hach iMSComml. input 

For i = 1 To 2 

call Token (Chr$ (32), CommData, i, ret_token$) 

Select case i 
Case 1 

if ret__token$ Like " calibration*" Then 
CAL_Mode = True 
Hach! Readout. caption = "CAL" 

Else 

Hach {Readout. caption = Format (ret_token$ , "00. 000") 
Origin!NTU_Readout. caption = Format (ret_token$ , "00. 000") 
CAL_Mode = False 

End if 
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Case 2 

'Debug. Print i, Trim(ret_token$) 

if Trim(ret_token$) Like "*NTU*" Then 

'Debug. Print "case = NTU" 

Current_Units = "NTU" 

NEPHOpti on. Lighted or = &HFFFFFF 

EBCOption . LightColor = &HFFFFFF 

NTUOption.LightColor = &HFF00& 

End If 

if Trim(ret_token$) Like "*EBC*" Then 
'Debug. Print "case = EBC" 
current_units = "ebc" 

NEPHOpti on. LightColor = &HFFFFFF 

EBCOpti on. LightColor = &HFFOO& 

NTUOption.LightColor = &HFFFFFF 

End If 

If Trim(ret_token$) Like "*NEP*" Then 
'Debug. Print "Case = NEP" 
current_units = "NEPH" 
NEPHOpti on. LightColor = &HFFOO& 
EBCOption. LightColor = &HFFFFFF 
NTUOption.LightColor = &HFFFFFF 

End If 
End Select 
Next i 

'Has the Data been successfully acquired from the bus? 

If Hach! Readout. caption = "" Or val (Hach! Readout. caption) < 0 Or 
Hach! Readout. caption Like "* 

*" Then 

ldle_Time (0.5) 

Goto Reacqui re 
End If 



End Sub 
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[page 16] 
Hacn - 2 

Private Sub DnArrow__Cli ck() 

Call Momentary_Contact(18) 

Call ldle_Time(0. 5) 

Call Data_Acq_Cl i ck 

Call Idle_Time(0. 5) 

Call Machine_status 

End Sub 

Private Sub Enter_Button_Cli ck() 

Call Momentary_Contact(19) 

Call ldle_Time(0.5) 

Call Data_Acq_Click 

Call ldle_TimeC0.5) 

Call Machine_Status 

End Sub 

Private Sub HachPort_Cl i ck(index As integer) 
Dim i As integer 
Hach_Port = index 
For i = 1 To 4 

If HachlHachPort(i) .value = True And Diagnose !RSPort(i) .value = True Then 
MsgBox "Identical serial Ports !!", vbExclamation , "system Error" 
Exit For 
End If 
Next i 
End sub 

Private Sub MSComml_OnCommO 
Select Case Hach iMSComml.CommEvent 
Case comEvReceive 

'Debug. Print "Recieved Data!" 
Case comEvDSR 

'Debug. Print "comEVDSR" 
End Select 
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End sub 

private Sub Print_Button_Click() 
Call Momentary_Contact(22) 
End Sub 

private Sub Range_Button_Cli ck() 

Call Momentary_Contact(24) 

Call ldle_Time(0.5) 

Call Data_^cq_Click 

Call ldle_Time(0.5) 

Call Machine_Status 

End Sub 

private Sub Ratio_Button_click() 

Call Momentary_Contact(23) 

Call idle_Time(0.5) 

Call Data^Acq_Click 

Call ldle_Time(0.5) 

Call Machine_Status 

End Sub 

private Sub RtArrow_Click() 

Call Momentary_Contact(17) 

Call ldle_Time(0.5) 

Call Data_Acq_Click 

Call ldle_Time(0.5) 

Call Machine_Status 

End Sub 

private Sub signal_Button_click() 

Call Momentary_Contact(21) 

call ldle_Time(0.5) 

Call Data_Acq_Cl i ck 
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Call ldle_Time(0.5) 
Call Machine_status 
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End Sub 

private Sub units__Button_Click() 

Call Momentary_Contact(25) 

Call ldle_Time(0.5) 

Call Data_Acq_Click 

Call ldle_Time(0.5) 

Call Machine_Status 

End Sub 

private Sub upArrow__ClickO 

Call Momentary_Contact(16) 

Call Idle_Time(0.5) 

Call Data_Acq_Click 

call ldle_Time(0.5) 

call Machine_Status 

End Sub 
[page 18] 
Kloehn - 1 

option Explicit 1 Force explicit variable declaration. 

private Sub DevNo_Click(lndex As integer) 

Real_DevNo = index 

Cal 1 Dete rmi ne_DevNo 

Kloehn !status_Button. value = True 

End Sub 

Sub Determine_DevNoO 
Dim i as integer 
For i = 1 To 15 

if Kloehn !DevNo(i) = "True" Then 
select case i 
Case 1 To 9 

Dev__No = 48 + i 'ASCII 
case 10 to 15 

Dev_No = 55 + i 'ASCII 
End Select 
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Exit Sub 

End If 

Next i 

End Sub 

private Sub Execute_Button_Click() 
Dim Repeated As integer 
Dim temp$, i As integer 
ReplyOK = False: Repeated = 0 
Repeat_Cmd : 

Call ldle_Time(0.06) , l/18th of a Second 
Repeated = Repeated + 1 
select case Repeated 

case 18, 20, 22, 24 'ok, reissued Command for 1 sec, no Response 

Gosub QueryAndResend 
Case 90, 92, 94, 96 'Reissued command for 5 sec Not Good 
Call ldle_Time(5) 
GoSub QueryAndResend 
Call ldle_Time(5) 

case 180 'Reissued Command for lOsec Hopeless Terminate Sample & Continue 
'Syringes Not Responding - Reset all and Dump Data Captured thus far 
Call showMsgData(Log!Term, "Error: Syringes Not Responding - Resetting 

all' 1 ) 

Cal 1 Reset_Syri nges 
Early_Terminate = True 
End Select 

'MsgBox "Device Not Responding to Commands", vbExclamation , "System Error" 
'End If 

'Enable UART to Transmit RS-485 Communication 

Kloehn!Kloehn_Comm.RTSEnable = True 

Call ldle_Ti me (0.005) 

Statts(Real_DevNo) = "Busy" 

Kloehn!Status_Button. value = True 

Cal 1 Determi ne_wai t (Kloehn ! Cmd_Stri ng .Text) 

Select Case protocol (1) .value 
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AuW atea — " SW 

case True - 

^~ -Data Coumb) Terminal protoC ° hnlcmd _st ring. Text) 

call se „clan(lCBuiia_DT.5tr"9'- 
case False 

'OEM Protocol Kloe hn!C«l-«rio9--'ox« 
w . BoH^no^i, oev Kloeh „ lcmd _strle 9 .Te*t» 
call S e„d»oCBuOd_o E »-Str n n 9 a. - 

E " d Sele " t to Recieve RS-485 con-nUation 
'Enable UART to Reciev 
cal 1 i„le.Tl»e(0.00» 

[page 19] 
Kloehn - ^ 

. wa1 t 50»s For Reply ^ ^ ^ 

call ^ o Repeat _„a 

!f ReplyOK = False 

Exit sub 
QueryAndResend: 

temP S - Kloehn..c m d_Stnng.Text 
Kl0 ehn.cmd_String.Text - 

- i - 1T0 \ f - id OEM stringC.li oev_No, Kloehnlcmd_string-Text)) 
call SendC.dCBU.1d OBM. ^ 
ca n idle_TimeC0.06) 

N6Xt i - nn Text = temp$ 

K loehnlcmd_Stnng.Text 

Return 
End sub 

private sub Form_LoadO 

call oetermine_Port 

rail D etermine_DevNo 
C c a ; icha „ ge .Kloe,n_PortCKloe^ort> 

call set_Params 
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Public Sub Determine_PortO 
Dim i As integer 
For i = 1 To 4 

if Kloehn !KPort(i) = "True" Then 
Kloehn_Port = i 
Exit Sub 
End If 
Next i 
End Sub 

Private Sub KPort_Cl i ck(index As Integer) 
Call Change_Kloehn__Port(index) 
End Sub 

Private Sub SerialPort_Timer_TimerO 
Dim Asc_msg$, Hex_msg$ 
Asc_msg$ = Kloehn!Kloehn_Comm. input 
If Asc_msg$ <> "" Then 

•Debug. Print "ASCII Message: "; Asc_jnsg$ 

Hex_msg$ = ASCtoHex(Asc_msg$) 

'Debug. Print "Hex Message: " ; Hex_msg$ 

'Kloehn .'Response. Caption = Hex_msg$ 

Call lnterpret_Reply(Hex_msg$) 
End if 

End sub 

private Sub sliderl_Change() 

Kloehn!SerialPort_Timer. interval = KloehnlSliderl. value 
KloehnlSLabel .caption = KloehnlSliderl. value 
End Sub 

private Sub status_Button_cl i ck() 
select Case statts(Real_DevNo) 
case "Busy" 

Kloehn! Status. Backcol or = &HFF& 
Kloehn! Status. caption = "Busy" 
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Case "Ready" 

Kloehn! Status. BackCol or = &HFFOO& 
Kloehn! status. caption = "Ready" 
Case "unknown" 

Kloehn! Status. BackCol or = &HFFFF& 

Kloehn! Status. caption = "unknown" 
[page 20] 
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End select 
End Sub 

Public Sub Determine_Wai t(cmd$) 
Dim Steps as Single, Position as Single 
Select Case Left$(Cmd$, 1) 
case "v" 

SSpeed(Real_DevNo) = val (Mid$(Cmd$, 2, l_en(Cmd$) - 2)) 

case "p", "P" 

Steps = val(Mid$(cmd$, 2, (i_en(Cmd$) - 2))) 

wait_time(Real_DevNo) = Timer + Kl oehn_TDel ay (Steps , SSpeed(Real_DevNo)) 
Curr_Pos(Real_DevNo) = Curr_Pos(Real_DevNo) + Steps 
case "d", "D" 

Steps = val(Mid$Ccmd$, 2, Len(Cmd$) - 2)) 

wait_time(Real_DevNo) = Timer + Kloehn_TDel ay (steps, sspeed(Real_DevNo)) 
Curr_Pos(Real_DevNo) = curr_Pos(Real_DevNo) - steps 

case "a", "A" 

position = val(Mid$(Cmd$, 2, Len(Cmd$) - 2)) 
Steps = Abs(Curr_Pos(Real_DevNo) - Position) 
curr_Pos(Real_DevNo) = Position 
If steps > 0 Then 

wait_time(Real_DevNo) = Timer + Kl oehn_TDel ay (Steps , 
sspeed (Real _DevNo) ) 

End if 

Case "w" 

wait_time(Real_DevNo) = Timer + 6 
Case Else 
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wait_time(Real_DevNo) = Timer + 3 

End Select 

End Sub 

private Sub Status_Timer_Timer() 

Dim i As integer 

For i = 1 To 15 

If Statts(i) = "Busy" Then 

if Timer > wait_time(i) Then 

Statts(i) = "Ready" 

Kloehn!Status_Button. value = True 

End If 

End If 

Next i 

End Sub 
[Page 21] 
Lab_samp - 1 

Option Explicit 1 Force explicit variable declaration. 
'4/15/99 

Dim samp_Max As integer 
Dim origNoSamp as integer 
Dim origNop as integer 
Dim LSlndex As integer 
Dim Cur_Row As Integer 
Dim Cur_Col As integer 
Dim OnlyOnce as Boolean 



private Sub Cancel_Button_Cl i ck() 
'Cancel All added Lab Samples 
Total_samples = OrigNoSamp 
Nop_lptd = origNop 
Lab_Samp.Hide 
NotDMSOSol . Show 

NOtDMSOSol .SetFOCUS 

End Sub 
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Private Sub Finished_Button_click() 
if LSlndex = Samp_Max Then 

If Lab_Samp!Mask_CP_Box.Text Like " [A-Z] [A-z] -#####*" And _ 
Lab_samp! Mas k_LT_Box. Text Like "######-###-##" And _ 
Lab_Samp!Mask_Submit_Box.Text Like " [A-Z] [A-z] [A-z]?" Then 
Call Add_Fields 
End If 
End If 

Lab_samp.Hide 
NotDMSOSol .show 

NOtDMSOSol .SetFOCUS 

End Sub 

private Sub Form_Acti vateO 

If onlyonce = True Then Exit Sub 

Onlyonce = True 

OrigNoSamp = Total _Samples 

origNop = Nop_lptd 

LSlndex = 1 

Samp_Max = 1 

If Nop_lptd < 4 Then 

'Put Lab Samples on New Plate 

Nop_lptd = Nop_iptd + 1 

Cur_Row = 65 '"A" Dec = 65 

Cur_Col = 1 

Plate_ID(Nop_iptd) = "Lab_Samples" 

posi ti on! Pi ate_lD(Nop_lptd) .caption = Plate__lD(Nop_lptd) 
Else 

'Lab Samples Must go in Last Plate 
Cur__Row = Asc(row(Total_Samples)) 
Cur_Col = col (Total .Samples) + 1 
If cur_Col = 13 Then 

Cur_Row = Cur_Row + 1 

Cur_Col = 1 
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End if 
End If 

Call update_Di splay 

'Debug. Print "cur_Col" , Cur_Col 

End Sub 

private Sub Spi nButtonl_Spi nDown() 
if LSlndex >= 2 Then 

LSlndex = LSlndex - 1 

Samp_Text.Text = str (LSlndex) 

Call Fetch^Fi elds (LSlndex + Total _Sampl es) 

'Debug. Print "LSlndex = "; LSlndex 
[page 22] 
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End If 
End Sub 

private Sub Spi nButtonLSpi nllpO 
If LSlndex < samp_Max Then 
LSlndex = LSlndex + 1 
Samp_Text.Text = Str (LSlndex) 
'Debug. Print "LSlndex = " ; LSlndex 
if LSlndex < (Samp_Max - 1) Then 

Call Fetch_Fields(LSlndex + Total .Samples) 
Else 

Call Empty_Fields 
End if 
End If 
End sub 

Public Sub Fetch_Fields(n As integer) 

Lab_samp! Mas k_CP_Box. Text = CP_No(n) 
Lab_samp! Mas k_LT__Box. Text = LT_No(n) 
Lab__samp! Mas k_MW_Box. Text = MW(n) 
Lab_samp!Mask_submit_Box.Text = Submitter(n) 

End Sub 
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public Sub Empty_Fie1dsC) 

Lab_Samp!Mask_CP_Box.Mask = "" 

Lab_Samp! Mas k_LT_Box. Mask = ,,,, 

Lab_Samp! Mas k_MW_Box. Mask = ,,n 

Lab_Samp!Mask_submit_Box.Mask = "" 

Lab_Samp! Mas k_CP_Box. Text = ,,n 

Lab_Samp! Mas k_J_T_Box. Text = 

Lab„Samp! Mas k_MW_Box. Text = "" 

Lab_Samp!Mask_Submit_Box.Text = "" 

Lab.Samp! Mas k_CP_Box. Mask = ">??-#####-99" 

Lab__Samp! Mas k_LT_Box. Mask = "######-###-##" 

Lab_Samp! Mas k__MW_Box. Mask = "9999.99" 

Lab__Samp!Mask_Submit_Box.Mask = ">AAAa" 
End Sub 

Public Sub update_Display() 
Row_Label = "Row No. " & Chr(Cur_Row) 
col_Label = "Column no. " & Cur_col 
samp_Text = str(LSlndex) 
End Sub 

private Sub update_Button_Click() 

if Lab_Samp!Mask_CP_Box.Text Like " [A- z] [A- z] -#####*" And _ 
Lab_Samp!Mask_LT_Box.Text Like "######-###-##" And _ 
Lab_Samp!Mask_Submit_Box.Text Like " [A-Z] [A-Z] [A-Z]?" Then 

Call Add_Fields 

•store Total Number of Lab samples 
If LSlndex = samp_Max Then 

Total ^samples = LSlndex 
End If 

cur_col = cur_col + 1 
If Cur_Col > 12 Then 
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Cur__Col = 1 
Cur_Row = Cur_Row + 1 
End If 

'Debug. Print "LSlndex = "; LSlndex 
if LSlndex = Samp_Max Then 
LSlndex = LSlndex + 1 
End If 

If LSlndex > Samp_Max Then 

Samp_Max = LSlndex 
[page 23] 
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End If 

call Empty_Fields 
Call update_Di splay 
Else 

'Debug -Print "fill in all fields first!" 

MsgBox "Required Field Omitted!", vbOKOnly + vbExclamation , "invalid 
Submission" 

End If 

Mask_CP_Box . SetFocus 
End sub 

public Sub Add__FieldsO 

'put Lab Sample Fields into Arrays 

CP_No(LSlndex + Total .Samples) = Lab_Samp! Mas k_CP_Box. Text 
lt_no (LSlndex + Total _sampl es) = Lab_Samp!Mask_LT_Box.Text 
MW(LSIndex + Total .samples) = Lab.Samp! Mas k_MW_Box. Text 
Submitter (LSlndex + Total _Sampl es) = Lab_Samp!Mask_Submi t.Box.Text 
plate_No(LSlndex + Total_Samples) = Plate_lD(Nop_lptd) 
row(LSlndex + Total .samples) = chr$(Cur_Row) 
col (LSlndex + Total .Samples) = Cur.Col 

'Debug. Print "Row(LSlndex) ", row(LSlndex) 

'Debug. Print "Col (LSlndex) ", col (LSlndex) 

End Sub 
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option Explicit 1 Force explicit variable declaration. 

Dim Import_Index As integer 

Dim Discrete_lndex As integer 

Dim Start_No As integer 

private Sub Addl_lmport_Cl i ck() 

Call Addl_lmports 

End Sub 

private Sub Done_Button_Cl i ck() 

Dim QResult As integer 

Cal 1 pri nt_i mported 

originlmnuBegin. Enabled = True 

Load_Plates.Hide 

If Space_in_Rack = True Then 

QResult = MsgBoxC'Do you wish to Add Lab Samples ?", vbQuestion + vbYesNo, 
"Lab Samples?") 

If QResult = vbYes Then 

'Debug. Print "Add Lab samples" 

Lab_samp . Show 

Lab_Samp . setFocus 

Else 

NotDMSOSol . Show 

NOtDMSOSol .setFocus 
End if 
Else 

NOtDMSOSol . Show 

NotDMSOSol .SetFocus 
End if 
End Sub 

private Sub Fi rst_lmport_clickO 
Call lmport_One 
Fi rst_lmport. Enabled = False 
Fi rst_lmport . ForeColor = &HFF& 
Addl__lmport.ForeColor = &HFF00& 
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End Sub 

Private Sub Di rl_Change() 

Filel.Path = Dirl.Path •update Files 

Filel_Click 
End Sub 

private Sub Dri veL_Change() 

Dirl.Path = Drivel. Drive 'update Directory Path 

Filel_Click 
End Sub 

private Sub Filel_Click() 

If Right(Filel.Path, 1) <> "\" Then 

Comp_Path.Text = Filel.Path & "\" & Filel. FileName 
Else 'If root directory 

comp_Path.Text = Filel.Path & Filel. FileName 
End if 

'Debug. Print comp_Path.Text 
End Sub 

Private Sub Filel_DblClick() 

if Right (Fi lei. Path, 1) <> "V Then 

Comp_Path.Text = Filel.Path & "\" & Filel. FileName 
Else 'If root directory 

Comp_Path.Text = Filel.Path & Filel. FileName 
End If 



Select Case Fi rst_lmport . Enabl ed 
Case True 

Fi rst_lmport. value = True 
case Else 

Addl_import. value = True 
End Select 



End Sub 
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public Sub extract () 

Dim check_Data As Boolean, delim$, i As Integer, ret_value$ 
"Extract info From sample Bank File 
delim$ = V 

For i = Start_No To lmport_lndex 

Discrete_lndex = Di screte_index + 1 

Token (delim$), (Fi 1 e_Li ne(i )) , 2, ret_value$ 

'Debug. Print Di screte_lndex , File_l_ine(i) 

'Debug. Print "Ret__val ue$ : ", Ret_value$ 

Check_Data = ret_value$ Like " [A-Z] [A-Z] -#*" 

'Testing Files use Only !!! 

if i_oad_Plates!Check_Format. value = 0 Then 

Check_Data = True 
End If 

select case Check_Data 
Case True 

'Debug. Print "Case is True" 
CP_No(Discrete_lndex) = ret__Value$ 
Token (delim$), (File_Line(i)) , 1, ret_value$ 
ActPos(i) = Trim$(ret_value$) 
'Debug. Print "Actual Plate Pos: " , ActPos(i) 
row(i) = Left$(Trim$(ret_value$) , 1) 
Select Case Len(Trim$(ret_value$)) 
Case 2 

col(i) = Right$(Trim$(ret_value$) , 1) 
case 3 

col(i) = Right$(Trim$(ret_value$) , 2) 
End select 

Token (delim$), (File_Line(i)) , 3, ret_value$ 
LT_No(Discrete_index) = ret_value$ 
Token (delim$), (File_Line(i)) , 5, ret_Value$ 
MW(Discrete__lndex) = ret_value$ 
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Token (delim$), (File_Line(i)) , 6, ret_value$ 

Submitter(Discrete_lndex) = ret_value$ 

Token (delim$), (File^Line(i)) , 7, ret_value$ 

Sub_Date(Discrete__index) = ret_value$ 

'Append Plate no to CP info 

Plate_No(Discrete_lndex) = Plate_lD(Nop_iptd) 

'Debug. Print CP_No(i), LT_No(i), MW(i), Submi tter(i) , 
Sub_Date(i) , Plate_No(i) 

case False 

'Debug. Print "case is False: index: "; i 
Total ..Samples = i - 1 
lmport_lndex = i - 1 

MsgBox "This File Does Not Have a valid Format!", vbOKOnly + 
vbExclamation, "invalid File" 

Cal 1 pri nt_i mported 

Exit Sub 

End Select 

Next i 

Total _Samples = lmport_lndex 
End Sub 

Private Sub ForrrU_oadO 
Drivel. Drive = "c:" 

Dirl.Path = "\VB\Code_Repository\Project_Red_Light\test" 
FileX_click 

Total .Samples = 0 'Reset Total Number of samples 
Nop_lptd = 0 'Reset Number of Plates imported 
Discrete_lndex = 0 
Fi rst_lmport. Enabled = True 
First_lmport.ForeColor = &HFFOO& 
Addl_lmport .Enabled = False 
Addl_import.Forecolor = &HFF& 
End sub 

Public sub Import__One() 
Dim delim$, ret_value$ 
Nop_lptd = Nop__lptd + 1 
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lmport__lndex = 0 
[page 26] 
Load_Plates - 3 

start_No = 1 

open Load_Plates!Comp_Path.Text For input as #1 

Dim temp$ 

delim$ = Chr$(32) 

'Determine Plate Number 

Line input #1, temp$ 

Token (delim$), temp$, 1, ret_value$ 

plate_lD(Nop_iptd) = ret_value$ 

posi ti on! Pi ate_ID(Nop_lptd) .caption = Plate_lD(Nop_Iptd) 
'Debug. Print temp$ 

'Debug. Print "Plate_lD(Nop_lptd) : Plate_iD(Nop_iptd) 

'Skip over Blank space 

Line input #1, temp$ 

Do until EOF(l) 

lmport_lndex = lmport_lndex + 1 

Line input #1, Fi 1 e_Li ne(Import_lndex) 

'Debug. Print lmport_lndex, File.J_ine(lmport_lndex) 

Loop 

'Debug. Print "lmport_Index: "; lmport_lndex 
Close #1 

call extract 

Addl_lmport. Enabled = True 
Fi rst_lmport.ForeColor = &HFF& 
Addl_import.ForeColor = &HFFOO& 
End Sub 

Public Sub Addl_ImportsO 
Dim temp$, delim$, ret_value$ 
delim$ = Chr$(32) 
Nop_lptd = Nop_lptd + 1 
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Open Load_Plates!comp_Path.Text For input As #1 

'Determine Plate Number 

Line Input #1, temp$ 

Token (delim$), temp$, 1, ret_value$ 

Plate_lD(Nop_lptd) = ret_value$ 

If Nop_lptd < 5 Then 

Position ! Pi ate_lD(Nop_lptd) .caption = Plate_lD(Nop_lptd) 

End If 

•Debug. Print "Plate_lD(Nop_lptd) : Plate_lD(Nop_lptd) ; "No. "; Nop_lptd 

"Skip over Blank Space 

Line input #1, temp$ 

Start_No = lmport_lndex + 1 

'Debug. Print "Start_No", Start_No 
Do Until EOF(l) 

Import_Index = import_lndex + 1 

Line input #1, Fi 1 e_Li ne(lmport_index) 

1 Debug . Pri nt import_index , Fi 1 e_Li ne(Import_index) 

Loop 

Close #1 
Call extract 
If Nop_lptd = 4 Then 

Done_Button .value = True 
End If 
End sub 

Public Sub print_imported() 

Dim temp$, i As Integer 

For i = 1 To Total ^Samples 

temp$ = "index: " & i & " " & row(i) & " " & col(i) & " " & CP_No(i) & 
M ii 

& LT_No(i) & " " & MW(i) & " " & submitter(i) & " " & Sub_Date(i) & 

n ii 

& Plate_No(i) 

'Debug. Print "index: "; i, CP_No(i), LT_No(i), MW(i), Submitter(i) , 
Sub_Date(i), Plate_No(i) 

'ShowMsgData LoglTerm, temp$ 
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Next i 

'Debug. Print "Total^Samples" , Total ^samples 

'Debug. Print "lmport_index" , lmport_lndex 
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End Sub 

Private Function space_i n_RackO As Boolean 
1 is there any space for Lab Samples ? 

If Nop.lptd = 4 And row(Total_Samples) = "H" And col (Total .Samples) = "12" Then 
Space_in_Rack = False 
Else 

Space_i n_Rack = True 
End if 

End Function 
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Option Explicit 1 Force explicit variable declaration, 
private Sub Clear_Button_Click() 
Log! Term. Text = "" 
End Sub 

private Sub close_Button_ClickO 
Log. Hide 
End Sub 

Private Sub Form_Load() 
call clear_Button_Click 

End Sub 
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Option Explicit 1 Force explicit variable declaration. 

Dim iOBoard_Address As integer 

Dim input_DataByte(3) As integer 

Dim Output_DataByte(3) as integer 

Sub BAddr_Change() 

Dim Switch_no As integer 
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lOBoard_Address = 0 
For Switch_no = 1 To 4 

if Dip_switch(Switch_no) .value = "True" Then 

lOBoard_Address = iOBoard^ddress + 2 a (6 - Switch_no) 
End if 
Next switch_no 

Board_Address. caption = "Board $: " & Str(lOBoard_Address) 
"Debug. Print "Board Address is now: "; iOBoard_Address 
End Sub 

private Sub Cancel_Button_Click() 
MBB_32 , Hi de 
End Sub 

private Sub Dip_Switch_Click(index as integer, value As integer) 
Call BAddr_Change 
End Sub 

private Sub Form_DblCl i ck() 
MEM_08 . Hi de 
End Sub 

private Sub Form_Load() 
Port__Addr .Text = MetraBus_Address 
•specify Address to Board 
Call BAddr_change 

'Debug. Print (val (Port_Addr + 1)), IOBoard^Address 
DlPortwritePortuchar (val (Port_Addr + 1)), iOBoard^vddress 
End Sub 

Private Sub Read_Button_Click() 
Cal 1 Decode_inputs 
End sub 

Public sub Calc_outBytesO 

Dim ByteNo as integer 

Dim BitNo as integer 

'Debug Print '■*********************" 

'Debug. Print "* write Output Byte *" 
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' Debug .Print " *********************" 

For ByteNo = 0 To 3 

'Set Address Pointer 

'Debug. Print Cval (Port_Addr + 1)), (lOBoard_Address + ByteNo) 
DlPortwritePortuchar (val (Port^ddr + 1)), (lOBoard_Address + ByteNo) 
Output_DataByte(ByteNo) = 0 
For BitNo = 0 To 7 

If OBit (BitNo + (ByteNo * 8)). value = 1 Then 

Out put_DataByte (ByteNo) = Output_DataByte (ByteNo) + 2 a BitNo 
End If 
Next BitNo 

•Debug. Print "Byte No."; ByteNo; " = ; Output_DataByte (ByteNo) 
DlPortwritePortuchar val (Port^ddr) , Out put__DataByte (ByteNo) 

Next ByteNo 

End sub 

Public Sub Decode_lnputs() 

Dim ByteNo As integer 

Dim BitNo as integer 

Dim Byte_value As integer 

Dim check_Byte As Integer 

i D e b U g . pri nt "*********************" 
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'Debug. Print "* Read input values *" 
'Debug Print M *********************" 
For ByteNo = 0 to 3 

'Set Address Pointer 

'Debug. Print (val (Port^Addr + 1)), (lOBoard_Address + ByteNo) 
DlPortwritePortuchar (Val (Port_Addr + 1)), (iOBoard^Address + ByteNo) 
'Read Byte into Byte_Value 

Byte_value = Dl PortReadPortuchar (Val (Port_Addr)) 
check_Byte = 255 - Byte_value 

'Debug. Print "check Byte"; ByteNo; " = " ; Check__Byte 
For BitNo = 7 To 0 step -1 
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if check_Byte >= 2 a BitNo Then 

Check_Byte = Check_Byte - 2 a BitNo 
lBit(BitNo + (ByteNo * 8)). value = 0 
Else 

iBitCBitNo + (ByteNo * 8)). value = 1 
End if 

'Debug. Print check_Byte 
Next BitNo 
Next ByteNo 
End Sub 

private sub write_Button_Click() 

Call Calc_OutBytes 

End sub 
[page 31] 
mem_08 - 1 

Option Explicit 1 Force explicit variable declaration. 

Dim Curr_BAdr As integer 

Sub BAddr_ChangeO 

Dim Switch_no As integer 

Curr_BAdr = 0 

For Switch_no = 1 To 6 

If Dip_switch(switch_no) .value = "True" Then 
Curr_BAdr = Curr_BAdr + 2 a (6 - Switch_no) 

End if 
Next Switch_no 

Board_Address. caption = "Board $: " & Str(Curr_BAdr) 
End Sub 



Private Sub Commandite! i ck() 
DlPortwritePortuchar 800, 1 
'DasByteOut 800, 1 
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End Sub 

Private Sub Dip_Switch_Click(lndex As integer, value As Integer) 
Call BAddr_Change 
End Sub 

private Sub Form_DblClick() 
mem_08 . Hi de 
End sub 

private Sub Form_Load() 
Port_Addr .Text = MetraBus_Address 
'Specify Address to Board 
call BAddr_Change 

'DasByteOut (val (Port_Addr) + 1), Curr_BAdr 
DlPortwritePortuchar (Val (Port_Addr) + 1), Curr_BAdr 
End Sub 

private Sub Trip_Relays_Click() 

Dim data_byte As Integer, Relay_.no As integer 

•specify Address of Board 

call BAddr_Change 

'DasByteOut (Val (Port_Addr) + 1), Curr_BAdr 
DlPortwritePortuchar (val (Port_Addr) + 1), Curr_BAdr 
data_byte = 0 
For Relay_no = 1 To 8 

if CR(Relay_no) .value = "False" Then 

Activate (Relay_.no) .Fill col or = &H8080FF 

Li ne2(Relay_no) .visible = True 

Li nel(Relay_no) .visible = False 

' Layout. LED(Relay_no) .Fill Style = 1 

Else 

Li ne2(Relay_no) .visible = False 

Li nel(Relay_no) .Visible = True 

Activate(Relay_no) .Fill Col or = &HFF& 

data_byte = data_byte + 2 a (8 - Relay_no) 

'uncomment in RSP software 

' Layout. led (Relay_no) .Fill Style = 0 

page 44 



Automated Kinetic solubility Assay Apparatus and Method.txt 

■ Layout. led (Relay_no) .Fill Col or = &HFF& 

1 Layout. LED (Rel ay__no) .zorder 0 

End If 

Next Relay_no 

'Call DLL and Trip Relays 

'DasByteOut val (Port^ddr) , data_byte 

DlPortwritePortuchar val (Port_Addr) , data_byte 

'Call ldle_Time(l) 

End Sub 
[Page 32] 
MEM_08 - 2 

[page 33] 
MEM_32 - 1 



Option Explicit 1 Force explicit variable declaration. 

Dim Relay_Board^Address As Integer 

Dim lnput_DataByte(3) As integer 

Dim Output_DataByte(3) as integer 

Sub BAddr_change() 

Dim Switch_no As integer 

Relay_Board_Address = 0 

For Switch_no = 1 To 4 

If Dip_Switch(Switch_no) .Value = "True" Then 

Relay_Board_Address = Relay_Board^ddress + 2 a (6 - Switch_no) 

End If 
Next Switch_no 

Board_Address. caption = "Board $: " & Str(Relay_Board^\ddress) 
'Debug. Print "Board Address is Now: " ; Relay_Board^vddress 
End Sub 

Private Sub cancel _Button_Cl i ck() 

MEM_32.Hide 

End Sub 

Private Sub Dip_Switch_Click(lndex as integer, value as integer) 
Call BAddr_Change 
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End Sub 

private Sub Form_Dbl Click O 
MEM_08 . Hi de 
End Sub 

private Sub Form_Load() 
Port^ddr.Text = MetraBus^vddress 
'Specify Address to Board 
Call BAddr_Change 

'Debug. Print (val (Port_Addr + 1)), Relay_Board^ddress 
DlPortwritePortuchar (val (Port_Addr + 1)), Relay_Board^Address 
End Sub 

Private Sub Read_Button_cl i ck() 
Cal 1 Decode_lnputs 
End Sub 

public Sub calc_outBytes() 

Dim ByteNo As integer 

Dim BitNo as integer 

1 Debug . Pri nt "*********************" 

'Debug. Print "* write Output Byte *" 

'Debug Print M *********************" 

For ByteNo = 0 To 3 

'Set Address Pointer 

'Debug. Print (val (Port_Addr + 1)), (Relay_Board_Address + ByteNo) 
DlPortwritePortuchar (val (Port^\ddr + 1)), (Relay_Board^Address + ByteNo) 
Output_DataByte (ByteNo) = 0 
For BitNo = 0 To 7 

If 0Bit(BitNo + (ByteNo * 8)). value = 1 Then 

Out put_DataByte (ByteNo) = Output_DataByte (ByteNo) + 2 a BitNo 
End If 
Next BitNo 

'Debug. Print "Byte No. M ; ByteNo; " = "; Output_DataByte (ByteNo) 
DlPortwritePortuchar val (Port_Addr) , Output_DataByte (ByteNo) 

Next ByteNo 

End Sub 
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Public Sub Decode_lnputs() 
Dim ByteNo as integer 
Dim BitNo as integer 
Dim Byte_value As integer 
Dim Check_Byte As integer 
'Debug Print M ********************* n 

•Debug. Print "* Read input values *" 
[Page 34] 
MEM_32 - 2 

' Debug .Print " *********************" 
For ByteNo = 0 To 3 

'Set Address Pointer 

•Debug. Print (val (Port_Addr + 1)), (Relay_Board^\ddress + ByteNo) 
DlPortwritePortUchar (val (Port^ddr + 1)), (Relay_Board^vddress + ByteNo) 
'Read Byte into Byte_value 

Byte_value = Dl portReadPortuchar(Val (Port^Addr)) 
Check_Byte = 255 - Byte_value 

'Debug. Print "Check Byte"; ByteNo; " = "; Check_Byte 
For BitNo = 7 To 0 Step -1 

if check_Byte >= 2 a BitNo Then 

check_Byte = Check_Byte - 2 a BitNo 

MEM_32!lBit (BitNo + (ByteNo * 8)). Value = 0 

Else 

MEM_32!lBit (BitNo + (ByteNo * 8)). value = 1 
End If 

'Debug. Print Check_Byte 
Next BitNo 
Next ByteNo 
End Sub 

private sub LED_Reset_Button_Cl i ck() 
call Reset_LED_Board 
End Sub 

Private Sub wri te_Button_Cli ck() 
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Call calc_OutBytes 

End sub 
[Page 35] 
Messages - 1 

Option Explicit 1 Force explicit variable declaration, 
private Sub ForrruLoadQ 
Messages. Top = 4290 
Messages. Left = 5655 
End sub 

Private Sub SSCommandl_clickO 
Messages !MsgFi eld. Text = 
End sub 

Private Sub SSCommand2_Cl i ck() 

Messages .Hide 

End Sub 
[Page 36] 
Needle - 1 

Option Explicit ' Force explicit variable declaration. 
Private Sub Needle_Cancel_ClickO 
Needle. Hide 
End sub 

private Sub Needle_Close_Click() 

Needle. Hide 

End Sub 
[Page 37] 
NotDMSOSol - 1 

Private Sub cwButtonl_ValueChanged(ByVal value As Boolean) 
End Sub 

Private Sub Cancel_Button_cl i ck() 
NotDMSOSol .Hide 
End sub 

private Sub Done_Button_ClickO 
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Call Determi nerval idity 
NotDMSOSol .Hide 
End Sub 

private Sub Form_Acti vateO 
Dim key$ 
Dim captions 

■plate is the Frame with the Plate Buttons 
'pi ateTabs is the Tab control 
For total_plates = 1 To Nop_lptd 
key$ = "plate" & Str(total_plates) 
'captions = "Plate No." & str(total_plates) 
captions = Plate_lD(total_plates) 
'Debug. Print "Caption:", captions 

set x = Pi ateTabs. Tabs. Add (total _plates, key$, captions) 
plate(total_plates - D-Left = Pi ateTabs .ClientLeft 
Plate (total _plates - l).Top = PlateTabs.ClientTop 
Plate(total_plates - 1). width = pi ateTabs. Clientwidth 
plate(total_plates - 1). Height = Pi ateTabs. ClientHeight 
Next total_plates 
Plate(O) .zorder 0 
End Sub 

Private Sub PlateTabs_Cl i ck() 

Pi ate(Pl ateTabs. Selectedltem. index - D.ZOrder 0 
End Sub 

Public sub Determi ne_Val idity O 

Dim i as integer, letref As integer 

Dim row As string, col As integer 

Dim PlateRef As Integer 

Dim loop! en As integer 

Dim Posvalid(400) as Boolean 

'Calculate Position Equivilants for Compound Numbers 
col = 1 
letref = 65 
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looplen = 96 * Nop_lptd 
For i = 1 To looplen 
If col = 13 Then 
col = 1 

letref = letref + 1 
End if 

If letref > 72 Then letref = 65 
PosEQ(i) = Trim$CChr$(letref)) & Trim$(Str(col)) 
col = col + 1 
'Debug. Print PosEQ(i) 
Next i 

'Determine Invalid (DMSO insoluble) compounds in Plate 
[page 38] 
NotDMSOSol - 2 

'PlateRef = 1 

For i = 1 To looplen 

If NotDMSOSol ! Compound (i) .Value = True Then 

Posvalid(i) = False 

Else 

Posvalid(i) = True 
End if 

'If i Mod 96 = 0 Then 

'PlateRef = PlateRef + 1 
'End if 

'Debug. Print PosEQ(i), Posvalid(i) 
Next i 

'Match GUI fields with Actual compound Fields 
For i = 1 To Total ^Samples 
if i = 1 Then 
PlateNo = 1 

El self Plate_No(i) <> Plate_jMo(i - 1) Then 
PlateNo = PlateNo + 1 
End If 
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select case PlateNo 

Case 1 'Compounds in Plate 1 

For pos = 1 To 96 

If ActPos(i) = PosEQ(pos) Then 

if Posvalid(pos) = True Then 

Expt_valid(i) = True 

Else 

Expt_Valid(i) = False 
End If 
End If 
Next pos 

Case 2 'Compounds in plate 2 
For pos = 97 To 192 

If ActPos(i) = PosEQ(pos) Then 
If Posvalid(pos) = True Then 
Expt_valid(i) = True 
Else 

Expt_valid(i) = False 
End If 
End If 
Next pos 

Case 3 'Compounds in Plate 3 
For pos = 193 To 288 

If ActPos(i) = PosEQ(pos) Then 
if Posvalid(pos) = True Then 
Expt_Valid(i) = True 
Else 

Expt_valid(i) = False 
End If 
End if 
Next pos 
Case 4 

For pos = 289 To 384 

If ActPos(i) = PosEQ(pos) Then 
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If posvalid(pos) = True Then 
Expt_valid(i) = True 
Else 

Expt_valid(i) = False 
End if 
End If 
Next pos 
End Select 

'Debug. Print "Position: ActPos(i), Expt_valid(i) 
Next i 

End Sub 
[Page 39] 
Origin - 1 

Option Explicit 1 Force explicit variable declaration. 
Private Sub Form_Load() 
call setup_Grid 
End Sub 

private Sub Form_Unload (cancel As integer) 
End 

End Sub 

Private Sub mnuAbout_Click() 
Load About 
About . Show 
About .SetFocus 
End Sub 

Private sub mnuAspi rate_click() 
Load Aspirate 
Aspi rate. show 
Aspi rate. SetFocus 
End Sub 

private sub mnuBegin_Click() 
call solubility_Run 
End Sub 
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Private Sub mnuDetPams_Cl ickQ 

Load DetPams 

DetPams.Show 

DetPams . setFocus 

End Sub 

Private Sub mnuEmpty__Cl i ck() 
Call Empty_jluvette 
End Sub 

private Sub mnuExit_Click() 
End 

End Sub 

Private sub mnuExpams_Cl i ck() 
Load Expams 
Expams . Show 
Expams . SetFocus 
End Sub 

Private Sub mnuExport_Cl i ck() 
Export .Show 
Export .SetFocus 
End Sub 

Private Sub mnuFill_Click() 
Call Fill_cuvette 
End Sub 

Private Sub mnuFlush_click() 
Call Flush_cuvette 
End Sub 

Private Sub mnuHach_Cl i ck() 
Hach . Show 
Hach. SetFocus 
End Sub 

Private Sub mnulnsol__Cl i ckQ 
NotDMSOSol . Show 

NOtDMSOSol .SetFOCUS 

End Sub 
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[page 40] 
Origin - 2 

Private Sub mnuio^cl i ck() 
Load MBB_32 
MBB_32 .Show 
MBB_32 . SetFocus 
End Sub 

private Sub mnuKloehn_cl i ck() 
Load Kloehn 
Kloehn. Show 
Kloehn. SetFocus 
End Sub 

Private Sub mnuLabSamp_ClickO 
Load Lab_samp 
Lab_Samp . show 
Lab_Samp . SetFocus 
End Sub 

Private Sub mnuLoadPF_Click() 
Load Position 
Position. Show 

Load Load_Plates 
Load_Plates.Show 
Load_Pl ates . SetFocus 
End Sub 

Private Sub mnuMEM08_Click() 
Load MENL.08 
MEM_J)8 . Show 
menl.08. Set Focus 
End Sub 

Private Sub mnuMix_Click() 
Call Cuvette_Mix 
End Sub 

Private sub mnuMsgLog_cl i ck() 
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Load Log 
Log . Show 
Log.SetFocus 
End sub 

private Sub mnuNeedle_ClickO 
Load Needle 
Needle. Show 
Needle. Set Focus 
End Sub 

private Sub mnuPlate_Click() 

Load TestPos 

TestPos.Show 

TestPos.setFocus 

End Sub 

private Sub mnuRef resh_Click() 
call Ref resh_Rinse 
End Sub 

private Sub mnuRelay_Click() 
Load MEM_32 
MEM_32 .Show 
MEM_32.SetFocus 
End sub 

private Sub SSCommandLcl i ck() 

End Sub 
[Page 41] 
Origin - 3 

Private Sub mnuRi nse_cl i ck() 
Cal 1 Ri nse_Cuvette 
End Sub 

private Sub mnuRobot_cl i ck() 

Diagnose. show 

Di agnose . Set Focus 

End sub 
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private Sub mnuSaveSet_Cl i ck() 

Dim i as integer, DevNo as integer 

Open "c: \Solubility__Assay.ini" For Output As 1 

print #1, "[Form: Aspirate]" 

Write #1, Aspi rate! Samp_jrnt. Text, Aspi rate! Samp_Exp. Text , 
Aspi rate!Samp_Ri nse.Text 

print #1, "[Form: DetPams]" 

write #1, DetPams !MaxBase_Text -Text, DetPams ! Noi se_Text .Text , 
DetPams ! Hi gh_Basel i ne . Text , Det P 

ams ! EQ_Ti me_Text . Text 

Print #1, "[Form: ExPams]" 

print #1, "[Form: ExPams: Concentration]" 

For i = 1 To 4 

if Expams ! SConc (i) .Value = True Then Write #1, i 

Next i 

write #1, Expams !UDC_Text. Text 

Print #1, "[Form: ExPams: Cuvette volume]" 

For i = 1 To 5 

If Expams ! cvol (i) .value = True Then write #1, i 
Next i 

write #1, Expams !UDCuvol_Text. Text 

Print #1, "[Form: ExPams: Addtn volume]" 

For i = 1 To 3 

If Expams ! AVol (i) .value = True Then write #1, i 
Next i 

write #1, Expams !UDA_Text. Text 

Print #1, "[Form: ExPams: Addtn Range]" 

For i = 1 To 3 

if Expams !Range(i) .value = True Then write #1, i 
Next i 

print #1, "[Form: ExPams: Solution - pH_Text - Solvent]" 

write #1, Expams !Buffer_opti on. value, Expams ! pH_Text .Text , 
Expams ! Sol vent_Text . Text 

Print #1, "[Form: ExPams: Filter / wavelength]" 

write #1, Expams! Filter_Opti on. value, Expams !Wave_Text .Text 
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Print #1, "[Form: ExPams : Screen No. - ins No.]" 

Write #1, Expams!Screen_Text .Text , Expams ! ins__No .Text 

"Fix in Code to update New Path 

Print #1, "[Form: Load Plates: Default Path]" 

write #1, "\visual basi c\Project Red l_ight\Hach 2100n\Test" 

"Fix in Code to update New Path 

print #1, "[Form: Needle: Positions]" 
print #1, "[Racks - X]" 
For i = 1 To 4 

Select Case i 

Case 1 To 3 

write #1, Needle !xorg_Rack(i) .Text ; 

case 4 

write #1, Needle !X0rg_Rack(i) .Text 
End select 
Next i 

print #1, "[Racks - Y]" 
For i = 1 To 4 

Select Case i 

Case 1 to 3 

write #1, Needle !YOrg_Rack(i) .Text; 

Case 4 

write #1, Needle !YOrg_Rack(i) .Text 
End select 
Next i 

print #1, "[Racks - deltaX deltaY z]" 

write #1, Need! e!RDelta_x. Text, Needle!RDelta_Y.Text , Need! e!Depth_Rack. Text 
[Page 42] 
Origin - 4 

print #1, "[Rinse Position]" 

write #1, Need! e!xorg__Rinse. Text, Need! e!YOrg_Rinse. Text , 
Needl e ! Dept h_Ri nse . Text 

print #1, "[waste Position]" 
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write #1, Need! e!xorg_waste. Text, Needle!YOrg_waste.Text, 
Needl e ! Depth_waste .Text 

print #1, "[Turbidimeter Position]" 

write #1, Needle !xorg_Turbid. Text, Needle! YOrg_Turbid. Text , 
Needl e ! Dept h_Tu rbi d . Text 

print #1, "[Form: Syringe]" 

print #1, "[Compound Delivery Syringe]" 

For i = 1 To 6 

If Syringe !S_Samp(i) .value = True Then 

DevNo = i 

Exit For 

End If 
Next i 

write #1, Syringe !S_Samp_vol .Text, Syringe !SCOption48. value, DevNo 
Print #1, "[pH7 Syringe]" 
For i = 1 To 6 

If Syringe !S_pH7(i) .value = True Then 
DevNo = i 
Exit For 
End if 
Next i 

write #1, Syringe !S_ph7_vol .Text, Syringe !SpHOption48. value, DevNo 
Print #1, " [MeOH Syringe]" 
For i = 1 To 6 

If syringe !S_MeOH(i) .value = True Then 
DevNo = i 
Exit For 
End If 
Next i 

write #1, Syringe !S_MeOH_vol .Text, Syringe! SMeOHOption48. value, DevNo 

Print #1, "[Device #]" 

print #1, "[RSP9000 serial Port]" 

For i = 1 To 4 

If Diagnose !RSPort(i) .value = True Then 
write #1, i 
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Exit For 
End if 
Next i 

print #1, "[Hach Serial Port]" 
For i = 1 To 4 

if Hach !HachPort(i) .value = True Then 
write #1, i 
Exit For 
End If 



Next l 




Print #1, 


|_MetraBus ISA cara Aaaressj 


write #1, 


MEM_32 ! Port^Addr .Text 


print #1, 


"[Export Data Filename Path]' 1 


write #1, 


Export ! Path 


Print #1, 


"[upload Network Filename Path]" 


write #1, 


Export ! Network_Path 


Print #1, 


"[plateReader Solubility Export value] 


Write #1, 


Export ! Mi nSol 


print #1, 


"[Export Data Files checkboxes]" 


write #1, 


Export ! Hi ghDose__Chk . val ue 


write #1, 


Expo rt ! chkTData . val ue 


write #1, 


Export ! chkDData . val ue 


close 1 




End sub 





private Sub mnuSFin__Click() 
Cal 1 Fill _Cuvette_Sol vent 
End Sub 

Private Sub mnuSyringe_Click() 

'Load syringe 

syringe. Show 

Syringe. SetFocus 
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End Sub 

private Sub Reset^Axis_Click() 
CWGraphl. Axes (1) -Maximum = No^ddtns 
CWGraphl. Axes (1) .Minimum = 1 
CWGraphl. Axes (2) .Maximum = 2 
CWGraphl. Axes (2) .Minimum = 0 
Call Solubility_Run 
End Sub 

private Sub mnuTerminate_Click() 

Cal 1 Reset_Devi ces 

Call Empty_Rinse 

Cal 1 Empty_Cuvette 

cal 1 Rel ays_Of f 

End 

End Sub 

private Sub mnuwash_clickO 

Call wash_Cuvette 

End sub 
[Page 44] 
Position - 1 

Option Explicit 1 Force explicit variable declaration. 
[Page 45] 
RSPLog - 1 

Option Explicit 1 Force explicit variable declaration, 
private Sub close_l_og_Cl i ck() 
RSPLog.Hide 
End Sub 

Private Sub Commanded i ck() 

RSPLog! Term. Text = "" 

End Sub 
[Page 46] 
Syringe - 1 

option Explicit 1 Force explicit variable declaration. 

Page 60 



Automated Kinetic Solubility Assay Apparatus and Method.txt 

private Sub Syringe_Close_ClickO 

Cal 1 Syri nge_Params 

Syringe. Hide 

End Sub 
[Page 47] 
TestPos - 1 

Option Explicit 1 Force explicit variable declaration. 

Dim PNO as integer 

private Sub Bottom_Left_Cl i ck() 

Dim x_Coord As integer, Y_Coord As integer 

x_Coord = val (Needle!XOrg_Rack(PNO). Text) 

Y_Coord = val (Needle!YOrg_Rack(PNO). Text) + (8 - 1) * val (Needle !RDelta_Y. Text) 

'Move Robotic Arm into Position 

Call Set_Command_Mode("RSP", 8, "RSP") 

Execute_Primitive "pa", str(x_Coord) , str(Y_Coord) , "5" 

End Sub 

private Sub Bottom_Right_Click() 

Dim x_Coord as integer, Y_Coord As integer 

x_Coord = val (Needle!XOrg_Rack(PNO). Text) + (12 - 1) * val (Needle !RDelta_x. Text) 

Y_Coord = val (Needle! YOrg^Rack(PNO). Text) + (8 - 1) * val (Needle! RDelta_Y. Text) 

'Move Robotic Arm into Position 

Call set_Command_Mode("RSP M , 8, "RSP") 

Execute_Primitive "pa", str(x_Coord) , str(Y_Coord) , "5" 

End Sub 

private Sub Form_Load() 
call PlateNo_Click(l) 
End Sub 

Private Sub Origin_Click() 

'Move Robotic Arm into Position 

Dim x_Coord as integer, Y_Coord As integer 

x_Coord = val (Need! e!XOrg_Rack(PNO) .Text) 

Y_Coord = val (Need! e!YOrg_Rack(PNO) .Text) 

Call set_Command_Mode("RSP", 8, "RSP") 
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Execute_Primitive "PA", Str(x_Coord) , Str(Y_Coord) , '5 

End Sub 

private Sub PlateNo_Cli ck(lndex as integer) 

Dim x_Coord As integer, Y_Coord As integer 
PNO = index 

X_Coord = val (Needle!xorg_Rack(Index) .Text) 
Y_Coord = val (Needle ! YOrg_Rack(lndex) .Text) 
'Debug. Print x_Coord, Y_coord 
End Sub 

private Sub Top_Right_Click() 

Dim x_Coord as integer, Y_coord As integer 

'Move Robotic Arm into Position 

x_Coord = val (Needle !xorg_Rack(PNO) .Text) + (12 - 1) * val (Needle !RDelta_x. Text) 

Y_Coord = val (Needle ! YOrg_Rack(PNO) .Text) 

Call set_command_Mode( M RSP M , 8, "RSP") 

Execute_Primitive "PA", Str (X_Coord) , Str(Y_Coord) , "5" 

End Sub 
[Page 48] 
Assay_Run - 1 

'Global Syringe Parameters 
'Device No 
Option Explicit 

Global Cp_Syr As integer, MeOH_syr As integer, pH7_Syr As integer 
1 -Steps = Total Steps Syringe can Travel (Resolution) 

Global cp_syr_steps as Single, MeOH_Syr_Steps as Single, pH7_Syr_Steps as Single 
' _UStep = Unit Step - steps per ml_ or uL 

Global Cp_Syr_UStep as integer, MeOH_Syr_UStep as integer, pH7_Syr_UStep As 
integer 

' Analysis Flag 

' Total Number of Additions per CP Number 
Global CP__Addtns(400) as integer 
Global Early_Terminate as Boolean 
Global Out_value as Single 
Dim Endvalue as integer 
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Dim BeginBaseline as Single 

Dim def_msg$ 'The default message to return to in status Bar 

i ****************************************************** 
**** 

'Out of solution Algorithm May 22 2001 Brian Bissett 

'Algorithm Notes: 

'procedural Flow: 

, HachMsmts-> 

1 Acq_Hach_Data-> 

Look_Out-> 

Still_Out 

check_CP_out 

, ******************************************************************************** 
**** 

Public Sub Solubility_Run() 

Dim Sample_Loop As integer, Addi tion_l_oop As integer 
Dim Refresh As single, temp$ 

'Clear Needle of any residual particulate matter 
Call Flush_Needle 

'Clean Cuvette & Fill Cuvette with pH7 Buffer 

'Call Rinse_Cuvette Replaced with Fl ush_Cuvette 05/22/2000 
Call Flush_cuvette 

'Fill Rinse vessel for septum Piercing Needle 

Call Fill_Rinse 

For sample_Loop = 1 To Total_Samples 
'Relays in Proper state 
call Set_Relays 

'Clean MeOH For every 24 Samples !!! 
If (Sample__Loop Mod 24 = 0) Then 

Call Ref resh_Rinse 
End If 

temp$ = "starting sample No. n & str(Sample_Loop) & " of " & 
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st r (Total ^samples) 

def_msg$ = "Processing sample No." & Str(Sample_j_oop) & " of " & 
S t r (Total _Sampl es) 

call showMsgData (Log! Term, temp$) 

call status_Display(temp$) 

'Reset Flags 

Early_Terminate = False: Endvalue = 0 
Cal 1 PrepFo rMsmt ( (Sampl e_j_oop) ) 

Call status_Display(temp$) 'in Case of wash RePost Msg 

For Addition_Loop = 1 To No_Addtns '** 5 ONLY FOR TEST PURPOSES ** No^ddtns 
Cal 1 HachMsmt s ( (sampl e__Loop) , (Addi ti on_Loop) ) 
call status_Display(temp$) 
If Early_Terminate = True Then Exit For 

'in Case Totally soluble over Range Set ">" Max concentration 
If Endvalue = 0 And Addi tion_Loop = No^Addtns Then 

ori gin! sol val .Text = ">" & Adtn_Conc(Addi tion^Loop) 

CP_Sol (Sampl e_Loop) = Adtn_Conc(Addi tion_Loop) 

CP_Sol_Symb (Sampl e_Loop) = ">" 

CP_Done (Sampl e_Loop) = Format(Date$ , "yyyymmdd") & Format (Time$ , 

"hhmmss") 

End If 

Next Addition_Loop 
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MsmtsDone ( (Sampl e_Loop)) 

temp$ = "Sample No." & St r (sampl e_Loop) & " " & CP_No (Sampl e_Loop) & " is 
Finished" 

Call showMsgData(Log!Term, temp$) 

call status_Display(temp$) 
Next Sampl e_Loop 
'write all Data upon completion 

Call status_Di splay ("All compounds Assayed - Exporting Data ") 

call oracle_upload_File 
call Final _Export 

Call Status_Di splay ("Printing Notebook Page via Excel ") 
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call Create_Notebook_Page 

Diagnose !Reset_RSP. value = True 

'Empty Experimental vessels 

call Empty_Rinse 

Call Status_Di splay ("washing cuvette ") 

call wash_cuvette 

call Empty_cuvette 

call Fill_Cuvette_Solvent 

call Status^Di splay ("cuvette wash is Complete!") 
'Power Down all instruments 
Cal 1 Rel ays_Of f 

call showMsgData (Log! Term, "Assay has Completed Successfully, Terminating 
program,") 

Call Status_Di splay ("Assay has completed Successfully, Terminating Program.") 

'End 

End Sub 

public Sub Acq_Hach_Data(Curr_CP As integer, Addtn as integer) 

call ShowMsgData(Log!Term, "Sub: Acq_Hach_Data") 

Dim Col_Ref as integer 

Dim Row_Ref As integer 

Row_Ref = int( (Addtn) / 10) + 1 

If Addtn > 9 Then 

col_Ref = (Addtn + 1) Mod 10 

if col_Ref = 0 Then Col_Ref = 10 

Else 

Col_Ref = Addtn + 1 
End If 

'Debug. Print "Row_Ref", Row_Ref, "Col_Ref", col.Ref 
'Data Placement 
Hach!Data_Acq. Value = True 
origin!Data_Gridl. row = Row_Ref 
Origin!Data_Gridl.col = Col_Ref 
Origin!Data_Gridl. Cell Alignment = 4 
origin ! Data_Gridl. eel lFontBold = True 
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Origin!Data_Gridl.Text = Format (Hach! Readout. caption, 00.000 ) 

CP_Data(Curr_CP, (Addtn)) = Format (Hach ! Readout . caption , "00. 000") 
if val (Hach! Readout. caption) > origin!CWGraphl. Axes (2) .Maximum Then 

OriginlCWGraphl. Axes (2) .Maximum = (val (Hach! Readout. caption) +0.4) 
End If 

OriginiCWGraphl.ChartXvsv (Addtn), val (Format (Hach ! Readout . caption , "00.000" 
Call Look_Out((Curr_CP), (Addtn)) 
End sub 

Public Sub Look_Out(SampNo As integer, n As integer) 
Dim strike As Boolean 

Dim Eql_value As Single, CPData As Single 
Dim Addi tion_Loop As Integer 
'Check if Compound is out of solution 
call showMsgData(Log!Term, "sub: Look-out") 
■Reset Flags 
Early_Terminate = False 
Strike = False 
Select Case Endvalue 
case n 

****** This is the last measurement ***** 
call still_Out((sampNo) , (n)) 

•if CP Back in Solution then Exit And Continue Msmts 
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If Endvalue = 0 Then Exit Sub 
Early_Terminate = True 

'Debug. Print "Early Terminate: Endvalue = n" 
Exit Sub 

'Know Solubility Exit 
case is > 0 And Endvalue <> n 

****** Previous CP Turbidity Above Out_Value ***** 
Call still_out((SampNo) , (n)) 

'Debug. Print "Call Still Out: solubility Known" 
Exit Sub 
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Case 0 

****** T h e compound is Still in solution ***** 
'Debug. Print "Call Check_CP_Out : check if Soluble" 
Call check_CP_Out((SampNo) , (n)) 

End Select 

End Sub 

public Sub still _Out(SampNo As integer, n as integer) 

****** Make Sure CP Stays above Out_value for 2 additional Measurements *** 

'*** Anomoly Check - Solubility Detected, but keep reading and checking *** 

Dim Strike as Boolean 

Dim CPData as single 

Dim Addition_Loop As Integer 

CPData = val (CP_Data(SampNo, n)) 

If (CPData < Out_value) Then 

' *** Turbidity has fallen below outvalue *** 

■ *** Restore CP Status to back in solution *** 

CP_Sol (SampNo) = "" 

CP_Sol_Symb(SampNo) = "" 

CP_Done(SampNo) = 

Endvalue = 0 

Origin! Sol val .Text = "?" 

'Debug. Print "*** Anomoly Detected, CP is back in Solution !!! ***" 
End If 
End Sub 

Public Sub Check_CP_Out(SampNo As integer, n As Integer) 

****** Modified May 22 2001 to mimick old solubility assay G2483B ***** 

Dim CPData As Single 

'Current Measurement Value = Point for Examination 
CPData = Val (CP_Data(SampNo, n)) 

'If True then the Current Measurement is less than the Outvalue - Continue 
Additions 

If (CPData < out_value) Then 

'Debug. Print "Measurements Not increasing or Steady - Exiting Sub" 

Origin! Sol val .Text = ">" & Adtn_conc(n) 
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Exit Sub 
End if 

'If True the Current Measurement has risen above the Baseline 
'Debug -Print "Check for , = ,,, l CPData, Outvalue 
If CPData >= Out_value Then 

'Debug. Print "= value: ", CPData, Out_value 

CP_Sol (SampNo) = Adtn_Conc(n) 

■*** For first point use "<" for symbol, all else use "=" *** 
select Case n 
case 1 

CP_Sol_Symb(SampNo) = "<" 
case Else 

CP_sol_Symb (SampNo) = 
End Select 

CP_Done (SampNo) = Format(Date$ , "yyyymmdd") & Format (Time$ , "hhmmss") 

Endvalue = n + 2 
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Ori gin! sol val .Text = CP_Sol_Symb(SampNo) & CP_Sol (SampNo) 

'Debug. Print "***(=) Solubility is: "; CP_Sol_Symb(SampNo) ; CP_Sol (SampNo) ; 

Exit Sub 
End If 
End Sub 

Public Sub Syringe_Params() 
'Find Device Numbers 
Dim Device_No As integer 
For Device_No = 1 To 6 

If syri nge.S_Samp (Devi ce_No) .value = True Then 
Cp_Syr = Device_No 

End If 

if syri nge.S_pH7 (Devi ce_No) .value = True Then 

pH7_syr = Device_No 
End If 
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If Syri nge.S_MeOH (Devi ce_jsio) .value = True Then 

MeOH_Syr = Device_No 
End if 
Next Device_No 
'Find Resolution 

if syri nge. SCOption48. value = True Then 
Cp_syr_steps = 48000 
Else 

Cp_Syr_Steps = 24000 
End If 

if Syri nge. SpHOption48. value = True Then 
pH7_Syr_Steps = 48000 
Else 

pH7_Syr_Steps = 24000 
End If 

If syringe. SMeOHOption48. Value = True Then 
MeOH_Syr_Steps = 48000 
Else 

MeOH_Syr_Steps = 24000 
End If 

Cp_Syr_UStep = lnt(Cp_Syr_Steps / val (syri nge. s_Samp_Vol .Text)) 
pH7_syr_UStep = Int(Cp_Syr_steps / val (Syri nge . S_ph7_Vol .Text)) 
MeOH_Syr_UStep = lnt(Cp_syr_steps / val (Syri nge. s_MeOH_vol .Text)) 
'Debug. Print "cp_Syr: ", Cp_syr 
'Debug. Print "pH7_Syr: ", pH7_Syr 
'Debug. Print "MeOH_Syr: MeOH_Syr 
'Debug. Print "cp_syr_steps : " , cp_Syr_Steps 
'Debug. Print "pH7_Syr_Steps : pH7_Syr_Steps 
'Debug. Print "MeOH_Syr_steps: " , MeOH_syr_steps 
'Debug. Print n cp_Syr_UStep: Cp_Syr__ustep 
'Debug. Print n pH7_Syr_UStep: ", pH7_syr_UStep 
'Debug. Print "MeOH__Syr_UStep: MeOH_Syr_UStep 
'Debug. Print n pH7 Fill Steps:", pH7_Syr_UStep * Cuvol 
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'Debug. Print "MeOH Rinse Steps:", MeOH_Syr_ustep * Cuvol + 800 

End Sub 

Public Sub SetUp__Grid() 

Call ShowMsgData(Log!Term, "Sub: setup_Grid") 
Dim index As integer 
Origin !Data_Gridl. row = 0 
For Index = 0 To 10 

Select Case index 

Case 0 

origin!Data_Gridl.col = index 

Origin!Data_Gridl.Text = "x" 
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Origin!Data_Gridl. Cell Alignment = 4 
Origin!Data_Gridl.Colwidth(lndex) = 400 
Origin ! Data_Gridl. Cel lFontBold = True 
Case 1 to 10 

origin!Data_Gridl.col = index 

Origin!Data_Gridl.Text = "X" & Trim$(Str (index - 1)) 
'Align (center) Text in Fixed Columns 
Origin !Data_Gridl. Cell Alignment = 4 
Origin!Data_Gridl.ColWidth(Index) = 830 
Origin!Data_Gridl. Cell Font Bold = True 
End select 
Next index 

Origin!Data_Gridl.col = 0 
For index = 0 To 5 

Origin!Data_Gridl. row = index + 1 

Origin !Data_Gridl. Text = Trim$(str(lndex)) 

Origin !Data_Gridl. Cell Alignment = 4 

Origin!Data_Gridl.CellFontBold = True 
Next index 
End Sub 

Public Sub Acq_Baseline(Curr_CP as integer) 
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Dim ReRinse as integer, temp$ 
'Acquire First Hach Reading, Taken as Baseline 
Call showMsgData(Log!Term, "Sub: Acq_Basel i ne") 
call ldle_Time(60) 'Addtional settling time for Baseline 
Gosub Read_Hach 

"Baseline above Maximum (Dirty cuvette?) 

while CP_Data(Curr_CP, 0) > val (DetPams!MaxBase__Text.Text) 

temp$ = "Sample No." & curr_CP & " has a Baseline of: " & CP_Data(Curr_CP, 0) 
& " which is abo 

ve maximum of " & DetPams !MaxBase_Text .Text 
Call i_og__Error(temp$) 
call status_Display(temp$) 
if ReRinse = 4 Then 

'unable to Clean Cuvette - Shutdown Run 

call i_og_Error("Baseline still too High - Assay Terminated") 

'MsgBox "BaseLine Above Allowed Maximum!!", vbExclamation , "System Error" 

'Dump Data Taken thus far 

'Move Arm Out of Turbidimeter Channel Prior To Shutdown 

Call clear_Turbi dimeter 

Call Final ^Export 

Call Empty_Needle 

Cal 1 Empty_Ri nse 

Call Empty_Cuvette 

Call Fill_Cuvette_Solvent 

'Power Down all instruments 

call Relays_Off 

Diagnose !Reset_RSP. Value = True 

Call_DoEvents 

DoEvents_Flag = False 

MsgBox "BaseLine Above Allowed Maximum!!", vbExclamation, "System Error" 
Stop 
End If 

Call Log_Error("lnitiate Cuvette Wash") 
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select Case ReRinse 
Case 0 

Cal 1 Empty_cuvette 
Call Fill_cuvette 
case 1 

cal 1 Ri nse_Cuvette 
Case 2 

Call Flush_cuvette 
Case 3 

Call wash_Cuvette 
End select 

Call ldle_Time(120) 
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Gosub Read_Hach 
ReRinse = ReRinse + 1 

wend 

•iff first sample assayed 
If Curr_CP = 1 Then 

BeginBaseline = val (Format (Hach! Readout. caption, "00. 000")) 

'Debug. Print "BeginBaseline: ", BeginBaseline 

If val (Hach! Readout. caption) > origin 'CWGraphl. Axes (2) .Maximum Then 

Origin!CWGraphl.Axes(2) .Maximum = (Val (Hach! Readout. caption) + 0.4) 
End If 

origin! CWGraphl. ChartxvsY (0), Val (Format(Hach ! Readout . caption , "00.000")) 

'Exit Sub 

Else 

If val (Hach! Readout. caption) > origin! CWGraphl. Axes (2) .Maximum Then 

origin!CWGraphl.Axes(2) .Maximum = (val (Hach ! Readout . caption) + 0.4) 
End if 

Origin! CWGraphl. ChartxvsY (0), Val (Format (Hach! Readout. caption, "00.000")) 
End if 

'Out_value = Baseline +0.25 (from GUI) 
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out_value = val (CP_Data(Curr_CP, 0)) + valCDetPams! not se__Text. Text) 

Exit Sub 
Read^Hach : 

'Acquire First Hach Reading, Taken as Baseline 
Hach ! Data_Acq . value = True 
Origin!Data_Gridl. row = 1 
Origin!Data_Gridl.col = 1 
origin!Data_Gridl. Cell Alignment = 4 
Origin!Data_Gridl.CellFontBold = True 

Origin!Data_Gridl.Text = Format (Hach ! Readout . caption , "00. 000") 
CP_Data(Curr_CP, 0) = Format(Hach! Readout. caption, "00. 000") 
Call status_Display(def_msg$) 
Return 
End Sub 

public Sub Fill_cuvette() 

'Fill cuvette with pH7 Buffer prior to CP additions 

Dim FSteps As Single, FString As String 

call showMsgData(Log!Term, "Sub: Fill_Cuvette n ) 

'Steps Required to Fill Cuvette 

FSteps = lnt(pH7_Syr_UStep * Cuvol) 

'Turn on Micro sti rbar 

MEM_08!CR(7) .value = True 

MEM_08!Trip_Relays = True 

call ldle_Time(0.5) 

'Fill Cuvette with pH7 Buffer 

Call setsyrcmd(4, pH7_Syr, "OEM") 

Call SyrCmd( ,, v2500R ,, ) 

Call syrCmdC'VB") 

FString = "p" & Trim$(Str (FSteps)) & "R" 
Call SyrCmd(FString) 
Call SyrcmdC'VA") 

FString = "d" & Trim$(str (FSteps)) & "R" 
Call Syrcmd (FString) 
call idleTillDone 
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•Allow 25 Second Equilibration Time after filling Cuvette 
'Call ldle_Time(25) 
End Sub 

Public Sub Rinse_Cuvette() 
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'Standard Rinse DMSO only followed by pH7 Buffer 

Dim MRSteps as Single, BRSteps As Single, RString As string 

Dim Reps as integer, i As integer 

Dim statmsg$ 

Call showMsgData(Log!Term, "Sub: Ri nse_Cuvette") 

Call Status_Di splay ("Rinsing cuvette - Please Wait ! ") 

'Steps Required to Rinse Cuvette 

'= steps Required to Fill Cuvette + just shy of 1/2 ml_ 

MRSteps = lnt(MeOH_Syr_ustep * Cuvol * 0.9) 

BRSteps = lnt(pH7_Syr_UStep * cuvol + 1000) 

'Turn on Micro Sti rbar 

mem_08!CR(4) .value = False 

mem_08!CR(5) .value = True 

MEM_08!CR(7) .Value = True 

MEM_08!Trip_Relays = True 

'Empty Cuvette of Liquid contents 

Cal 1 Empty_cuvette 

'Fill pH7 syringe 

Call Setsyrcmd(4, pH7_Syr, "OEM") 

Call syrCmd("v5000R") 

Call SyrCmd("VB") 

RString = "p" & Trim$(strCBRSteps)) & "R" 
call syrcmd (RString) 

'Fill Solvent Syringe 

Call setsyrcmd(4, MeOH_Syr, "OEM") 

Call SyrCmd("v5000R") 

Call syrcmd ("vb") 
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RString = "p" & Trim$(str (MRSteps)) & M R" 
call SyrCmd(RString) 
'wait for syringes to Fill 
Call IdleTillDone 
'Dispense solvent into cuvette 
Call SyrCmdC'VA") 

RString = "d M & Trim$(Str (MRSteps)) & "R M 

Call SyrCmd(RString) 
'work Solvent Thru cuvette 5 Times at High speed & Pressure 
Call SyrCmd("v5000R") 
For i = 1 To 5 

statmsg$ = "Rinsing cuvette - DMSO Rinse No." & Str(i) & " of 5" 
call Status_Display(statmsg$) 
'Aspirate solvent From cuvette 
RString = "p" & Trim$(str(MRSteps)) & "R" 
Call SyrCmd(RString) 
'Dispense Solvent in Cuvette 
RString = "d M & Trim$(Str(MRSteps)) & "R" 
Call SyrCmd(RString) 
If i = 3 Then Call Idle_Time(30) 
Next i 

Call IdleTillDone 
Call ldle__Time(l) 
Cal 1 Empty_Cuvette 

'Flush cuvette with pH7 Buffer 
Call SetSyrCmd(4, pH7_Syr, "OEM") 
Call SyrCmd("v2500R") 
For Reps = 1 To 3 

statmsg$ = "washing cuvette - pH 7.0 Buffer Flush No." & str(Reps) & " of 3" 
call Status_Display(statmsg$) 
Select case Reps 
Case 1 'Just Empty 
Call SyrCmd("VA") 
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RString = "d M & Trim$(Str(BRSteps)) & "R" 

Call SyrCmd(RString) 

'Aspirate solvent From Cuvette 
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RString = "p M & Trim$(Str(BRSteps)) & "R" 
Call SyrCmd(RString) 
'Dispense solvent in cuvette 
RString = "d" & Trim$(Str(BRSteps)) & "R" 
Call syrCmd(RString) 
Call idleTillDone 
Call ldle_Time(l) 
cal 1 Empty_Cuvette 
Case 2 'Empty & Fill 
Call syrCmdC'VB") 

RString = "p" & Trim$(Str (BRSteps)) & "R" 
Call SyrCmd(RString) 
call syrCmdC'VA") 

RString = "d" & Trim$(Str(BRSteps)) & "R" 
Call SyrCmd(RString) 
'Aspirate Solvent From Cuvette 
RString = "p" & Trim$(Str(BRSteps)) & 11 R M 
call SyrCmd(RString) 
'Dispense Solvent in Cuvette 
RString = "d" & Trim$(Str(BRSteps)) & " R" 
call Syrcmd(RString) 
call IdleTillDone 
Call ldle_Time(5) 
Cal 1 Empty_Cuvette 
case 3 'Just Fill with Fresh pH7 Buffer 

call Fill_Cuvette 
End select 
Next Reps 
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Call idleTillDone 

Call Status_Di splay ("cuvette Rinse Complete") 
End Sub 

public Sub Empty_cuvetteO 

call showMsgData (Log! Term, "Sub: Empty^Cuvette") 

'Turn on Relay Power 

MEM_08!CR(5) .value = True 

MEM_08!Trip__Relays = True 

Call Idle_Time(0.5) 

'vacum on 

MEM_08!CR(3) .value = True 
MEM_08!Trip_Relays = True 
'wait for cuvette to Empty 
Call ldle_Time(10) 
'Vacum Off 

MEM_08!CR(3) -Value = False 
MEM_08!Trip_Relays = True 
End sub 

Public Sub Reset_Devices() 

Call ShowMsgData (Log! Term, "sub: Reset_Devi ces") 
call Status_Di splay ("Reset Robotic Arm") 
•on startup Reset all Devices 
'Reset RSP9000 

call set_Command_Mode("RSP", 8, "RSP") 

Execute_Primitive "Pi", "", "", ,,M 

'Set Position Recovery when Step Loss Detected 

Execute^Primitive "sp", "1", "", "" 
'Reset Kloehn syringes 
Call Reset_syringes 
End sub 

Public Sub Flush_Cp_syr() 

'Flush Needle out with fresh DMSO 

Call ShowMsgData(Log!Term, "Sub: Fl ush_Cp_Syr") 

Call Status_Display("Flushing out Needle with DMSO . . .") 
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'Turn on vac to waste 

mem_08!CR(2) .Value = True 

MEM_08!Trip_Relays = True 

Call ldle_Time(0. 5) 
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'Move to waste Port 

Call Set_Command_Mode( ,, RSP n , 8, "RSP") 

Execute_Primitive "pa", Needle ! XOrg_waste. Text , Needl e ! YOrg_waste .Text , 
Needl e ! Depth_waste . Tex 

t 

'Flush out Needle Tip 

call SetsyrCmd(4, Cp_Syr, "OEM") 

call SyrCmd("V5000R") 

call SyrCmdCVA") 

Call SyrCmd( n p40000R M ) 

Call SyrCmd("VB") 

Call SyrCmd("d40000R") 

call idleTillDone 

'Move Needle Tip up from Port 

Call set_Command_Mode("RSP", 8, "RSP") 

Execute_Primitive "PA", Needl e ! xorg_waste . Text , Need! e ! YOrg_Waste . Text, "5" 

'Turn Off vac to waste 
MEM_08!CR(2) .value = False 
MEM_08!Trip_Relays = True 
Call ldle_Time(0.5) 
End sub 

Public Sub Flush_Needle() 

'Flush Needle out with fresh DMSO Multiple Time 
'subroutine Added on 05/22/2000 B Bissett 
Dim ii As integer, statmsg$ 

Call showMsgData(Log!Term, "Sub: Flush_cp_Syr") 

Call Status_Display("Flushing Needle") 
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•Turn on vac to waste 
MEM_08!CR(2) .value = True 
MEM_08!Trip_Relays = True 
Call ldle_Time(0. 5) 
'Move to waste Port 

Call set_Command_Mode("RSP", 8, "RSP") 

Execute_Primitive "pa", Needle ! X0rg_waste. Text , Needl e!YOrg_waste. Text , 
Needl e ! Dept h_waste . Tex 

t 

For ii = 1 To 5 

statmsg$ = "Flushing Needle - DMSO Rinse No." & Str(ii) & " of 5" 
call status_Display(statmsg$) 
'Flush out Needle Tip 10 Times (startup Only) 
call setsyrcmd(4, Cp_Syr, "OEM") 
Call SyrCmd("v5000R") 
Call syrCmd("VA") 
call SyrCmd("p40000R") 
Call SyrCmd("VB") 
Call SyrCmd("d40000R") 
Call idleTillDone 
Next ii 

'Move Needle Tip up from Port 

Call Set_Command_Mode("RSP", 8, "RSP") 

Execute__Primitive "PA", Needle ! XOrg_Waste. Text , Needl e! YOrg_Waste. Text , "5" 

'Turn Off vac to waste 
MEM_08!CR(2) .value = False 
MEM_08!Trip_Relays = True 
Call ldle_Time(0.5) 

Call Status_Di splay ("Needle Flush complete") 
End Sub 

public Sub Fill_Rinse() 

Call showMsgData(Log!Term, "sub: Fill_Rinse") 

call Status_Display("Filling Rinse with MeOH . . .") 
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Dim max_time As single, current_time as single 
'Fill Rinse vessel 

'Make Sure Rinse vessel is Completely Empty 
■Also release some vacum pressure on system 
MEM__08!CR(1) .value = True 
MEM_08!Trip_Relays = True 
call ldle_Time(5) 
mem_08!CR(1) .value = False 
MEM_08!Trip_Relays = True 
Call ldle_Time(0.5) 

'Turn on AC Hot (120 VAC) Lead to Pump & Rinse Sti rbar 
mem_08!cr(8) .value = True 
MEM_08!Trip_Relays = True 
Call ldle_Time(0.5) 

'Turn Rinse Level Detect Circuit 
MEM_08!CR(6) .value = True 
MEM_08!Trip_Relays = True 
Call ldle__Time(0.5) 

'wait for Rinse to Fill 

'Poll bit 0 of status byte 3 

MBB_32!Read_Button. value = True 

max_time = Timer + 60 

current_time = Timer 

While MBB_32!lBit (24) .value <> 0 And max_time > current_time 
'Read Bytes on mbb Board 
'Debug. Print "waiting" 
MBB_32!Read_Button. Value = True 
current_time = Timer 

wend 

'Debug. Print "Rinse Filled!" 
Call ldle_Time(0.5) 
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End Sub 

Public Sub Rinse_Needle() 

'Rinse outside of Needle 

Dim RSteps As single, RString As String 

Call ShowMsgData(Log!Term, "Sub: Ri nse_Needl e") 

Call Status^Di splay ("Rinsing Needle") 

'Steps Required for Dispense 

RSteps = lnt(Cp_Syr_ustep * val (Aspi rate ! Samp_Ri nse .Text)) 

'Move to Rinse vessel 

Call set_Command_Mode("RSP", 8, "RSP") 

Execute_Primitive "pa", Needle !XOrg_Ri nse. Text, Needl e ! YOrg_Ri nse. Text, 
Needl e ! Depth_Ri nse .Tex 

t 

'Let Needle sit in Rinse for 2.5 Seconds 
Call ldle_Time(2. 5) 

'First Dispense into Rinse (Lowers cv's) 
call Setsyrcmd(4, Cp_Syr, "OEM") 
call syrCmd("v2500R") 

RString = "d" & Trim$(Str(RSteps)) & "R" 
Call SyrCmd(RString) 

'Let Needle sit in Rinse for 2.5 seconds 

Call Idle_Time(2. 5) 

'Move Needle Tip up from Rinse 

Call Set_Command_Mode("RSP", 8, "RSP") 

Execute_Primitive "pa", Needle !xorg_Ri nse. Text , Needle ! YOrg_Ri nse. Text , "5" 

Call Status_Display(def_msg$) 
End Sub 

Public Sub Move_to_sample(ByVal Sample_No, Byval row, Byval col) 

Dim RowPos As integer, ColPos As Integer 

Dim x_Coord as Integer, Y_Coord As integer 

Dim i As integer 
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Assay_Run - 11 

Static PlateNo As integer 

Call showMsgData(Log!Term, "Sub: Move_to_Sampl e") 
'Determine Plate - Move code to Solubility Run 
if Sample_No = 1 Then 

PlateNo = 1 

Else 

If Plate_No(Sample_No) <> Plate_No(sample_No - 1) Then 

PlateNo = PlateNo + 1 
End if 
End If 

'Set all to default color 
For i = 1 To 4 

Position!Plate_lD(i).ForeColor = &H80000012 

Next i 

"set Active plate to different color (green) 
Position!Plate_lD(PlateNo) .Forecolor = &H80FF80 
'Find Row and Col Positions 
RowPos = Asc(row) - 64 
ColPos = col 
Select case PlateNo 
case 1 

X_Coord = val (Needle !xorg_Rack(l) .Text) + (ColPos - 1) * 
val (Needl e ! RDel ta_x . Text) 

Y_Coord = val (Needle !YOrg_Rack(l) .Text) + (RowPos - 1) * 
val (Needl e ! RDel ta_Y . Text) 

case 2 

x_Coord = val (Needl e !xorg_Rack(2) .Text) + (ColPos - 1) * 
val (Needl e ! RDel t a_X . Text) 

Y_Coord = val (Needl e!YOrg_Rack(2) .Text) + (RowPos - 1) * 
val (Needl e ! RDel ta_Y . Text) 

Case 3 

x_coord = val (Needl e!xorg_Rack(3) .Text) + (ColPos - 1) * 
val (Needl e ! RDel ta^x . Text) 

Y_Coord = val (Needl e!YOrg_Rack(3) -Text) + (RowPos - 1) * 
val (Needl e ! RDel ta_Y . Text) 
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Case 4 

x_Coord = val (Needle !XOrg_Rack(4) .Text) + (colPos - 1) * 
val (Needl e ! RDel ta_* . Text) 

Y_coord = val (Needle!YOrg_Rack(4) . Text) + (RowPos - 1) * 
val (Needl e ! RDel ta_Y . Text) 

End Select 

'Move Robotic Arm into Position 

Call Set_Command_Mode("RSP" , 8, "RSP") 

Execute_Primitive M PA M , Str(x_Coord) , Str(Y_Coord) , "5" 

Call Aspi rate_sample((x_Coord) , (Y_Coord)) 

End Sub 

Public Sub Aspirate_Sample(xpos, Ypos) 

Dim AString as String, ASteps As Single, PSteps as single 
call showMsgData(Log!Term, "sub: Aspi rate_Sample") 
Call status^Di splay ("Aspi rating Sample") 
ASteps = int(Cp_Syr_UStep * Total _Amt) 

PSteps = lnt(Cp_Syr_UStep * val (Aspi rate ! Samp_Exp. Text)) 

'Move Needle into Sample vial 

Call Set_Command_Mode("RSP" , 8, "RSP") 

Execute_Primitive "PA", Str(Xpos), str(Ypos), Needle! Depth_Rack. Text 

'Aspirate Sample from vial into Needle 

'call set_Command_Mode("RSP", cp_syr, "kloehn") 

Call SetSyrCmd(4, Cp_Syr, "OEM") 

Call SyrCmd("vlOOOR") 

AString = "p" & Trim$(Str(ASteps)) & "R" 
Call Syrcmd (AString) 
'Packing Function 

AString = "d" & Trim$(str(PSteps)) & "R" 

Call Syrcmd (AString) 

call idleTillDone 

'Move Needle out of Sample vial 

Call Set_Command_Mode("RSP" , 8, "RSP") 

Execute_Primitive "PA", str(xpos), str(Ypos), "5" 
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call status_Display(def_msg$) 
End Sub 

Public Sub Cuvette_Addition() 

'Add Compound to Cuvette in Specified volumes Between Scans 

Dim AString As String, ASteps As Single 

Call ShowMsgDataCLoglTerm, "Sub: Cuvette^ddi tion") 

ASteps = lnt(Cp_Syr__UStep * Add_vol) 

'Lower Needle into cuvette port 

call Set_Command_Mode("RSP", 8, "RSP") 

Execute_Primitive "pa", Needl e!XOrg_Turbid. Text , Needl e!YOrg_Turbid. Text , 
Needl e ! Depth_Turbi d . 

Text 

'Dispense Proper Amount of Compound into Buffer 
Call setsyrcmd(4, Cp_Syr, "OEM") 
Call syrCmd("vlOOOR") 

AString = "d" & Trim$(str(ASteps)) & "R" 
Cal 1 Sy rCmd (ASt r i ng) 
Call idleTillDone 

'Move Arm out of Cuvette Above Cuvette Port 
Call Set_Command_Mode("RSP" , 8, "RSP") 

Execute_Primitive "PA", Needle!xorg_Turbid.Text , Needle ! YOrg_Turbid. Text , "5" 
End Sub 

Public Sub Empty_Needle() 

'Empty Remaining Needle contents (sample interface) 
Dim xoffset as string 

Call ShowMsgDataCLoglTerm, "Sub: Empty_Needle") 

'Calculate offset (Prevent Arm from Hitting Turbidimeter) 

xoffset = St r(val (Needl e!xorg_Turbid. Text) - 500) 

'Turn on vac to waste 

MEM_08!CR(2) .Value = True 

MEM_08!Trip_Relays = True 

call ldle_Time(0.5) 
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'Clear Turbidimeter Edge 

Call Set_Command_Mode( ,, RSP M , 8, "RSP") 

Execute_Primitive "PA", xoffset, Needle! YOrg_waste. Text , "5" 

'Move to waste Port 

Call Set_Command_Mode( ,, RSP ,, > 8, "RSP") 

Execute_Primitive "PA", Needle ! xorg_waste. Text , Needle !YOrg_waste. Text , 
Needl e ! Depth_wast e . Tex 

t 

'Empty Syringe Contents to Waste 
Call SetSyrCmd(4, Cp_Syr, "OEM") 
Call SyrCmdC'vlOOOOR") 
Call SyrCmd("aOR") 

'Move Needle Tip up from waste Port 

'Call Set_Command_Mode("RSP" , 8, "RSP") 

' Execute_Primitive "PA", Needl e !xorg_waste .Text , Needl e !YOrg_waste .Text , 

'Turn off vac to waste 
MEM_08!CR(2) .value = False 
MEM_08!Trip_Relays = True 
Call ldle_Time(0.5) 
End Sub 

Public Sub clear_Turbidimeter() 
Dim xoffset As String 

Call showMsgData(Log!Term, "Sub: Clear_Turbi dimeter") 
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'calculate offset (Prevent Arm from Hitting Turbidimeter) 
xoffset = Str(Val (Needl e!XOrg_Tur bid. Text) - 500) 
'Move Arm to Same Lattitude as Cuvette Port 
Call Set_Command_Mode("RSP" , 8, "RSP") 

Execute_Primitive "pa", xoffset, Needle!YOrg_Turbid.Text , "5" 
End Sub 

Public Sub Move_to_Turbidimeter() 
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Call ShowMsgData(Log!Term, M Sub: Move_to_Turbid-imeter") 

'Align Arm with Turbidimeter channel 

Call Clear_Turbi dimeter 

'Move Arm to Cuvette Port 

Call Set_Command_Mode("RSP", 8, M RSP") 

Execute_Primitive "pa", Needle !xorg_Tur bid. Text, Needle! YOrg^Tur bid. Text , "5" 

End Sub 

Public Sub Ref resh_RinseO 

Dim max_time As Single, current_time As single 
Dim loop_count As integer 

Call ShowMsgData(Log!Term, "Sub: Ref resh_Ri nse") 
Call Status_Di splay ("Refreshing Rinse") 
'Fresh MeOH into Rinse after 24 samples Assayed 
'Relays in Proper states 

mem_081CR(5) .value = True 'Relay Sol Pwr On 
MEM_08!CR(6) .value = True 'Rinse Level Detect On 
MEM_08!Trip_Relays = True 
Call ldle_Time(0.5) 

'Turn off AC Hot (120 VAC) Lead to Pump 

MEM_08!CR(8) .Value = False 

MEM_08!Trip_Relays = True 

Call ldle_Time(0. 5) 

'Empty waste MeOH 

MEM_08!CR(1) .value = True 

MEM_08!Trip_Relays = True 

Call ldle_Time(5) 

MEM_08 ICR (1) .value = False 

MEM_08!Trip_Relays = True 

Call ldle_Time(0.5) 

'Turn on AC Hot (120 VAC) Lead to Pump 
mem_08!CR(8) .value = True 
MEM_08!Trip_Relays = True 
Call ldle_Time(0. 5) 
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'wait for Rinse to Fill 

'Poll bit 0 of status byte 3 

MBB_32!Read_Button. value = True 

max_time = Timer + 60 

current_time = Timer 

'Debug. Print "Refresh Rinse Begin" 

while MBB_32!lBit(24) .value <> 0 And max_time > current_time 
'Read Bytes on MBB Board 
'Debug. Print "waiting" 
Call ldle_Time(l) 
MBB_32 !Read_Button. Value = True 
current_time = Timer 
loop_count = loop_count + 1 
if loop_count Mod 5=0 Then 

'Debug. Print "Triggering Relays" 

'Trigger Relays Every 5 Seconds to ensure proper state 
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'Relays have been triggered by "noise" which has caused 
'the rinse cycle to lock !!!!! 
mem_08!CR(1) .value = False 'Rinse vac Off 
MEM_08!CR(5) .Value = True 'Relay Sol Pwr On 
MEM_08!CR(6) .Value = True 'Rinse Level Detect On 
MEM_08!CR(8) .Value = True 'AC Hot Pump On 
MEM_08!Trip_Relays = True 
Call ldle_Time(0.5) 
End If 

wend 

'Debug. Print "Refresh Rinse End" 
Call Status_Di splay ("Rinse Refilled") 
End Sub 

Public sub Setup_Graph() 

call showMsgData (Log 'Term, "Sub: Setup_Graph") 
'clear Graph Data and Reset Axis 
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Ori gi n ! CWGraphl . Cl earData 
ori gi n ! Data_Gri dl . Cl ear 

Origin ! CWGraphl. Axes (1) -Maximum = No_Addtns 
OriginlCWGraphl.Axes(l) -Minimum = 0 
Ori gin! CWGraphl. Axes (2) .Maximum =0.5 
Origin!CWGraphl.Axes(2) .Minimum = 0 
End Sub 

Public Sub update_Display(sno As integer) 

Call ShowMsgData(Log!Term, "Sub: update_Di spl ay") 

'update Display information on main form 

Ori gin!CP_Label .caption = CP_No(sno) 

Ori gin! Pi ate_l_abel .caption = Plate_No(sno) 

Ori gin!Row_i_abel .caption = "Row: " & row(sno) 

ori gin!col_Label .caption = "Col: " & col (sno) 

Origin!Addtn_Label .caption = "Addtn No. 0" 

Ori gin! Sol val .Text = "?'* 

End Sub 

Public Sub Empty_Rinse() 

call showMsgData(Log!Term, "Sub: Empty_Ri nse") 

Call status_Di spl ay ("Emptying Rinse") 

'Turn Off Rinse Level Detect Circuit 

mem_08!CR(6) .value = False 

MEM_08!Trip_Relays = True 

Call ldle_Time(0. 5) 

'Empty Rinse vessel 

MEM_08!CR(1) -Value = True 

MEM_08!Trip_Relays = True 

Call ldle_Time(5) 

'Stir bar Off vac Off 

MEM_08 ICR (1) .Value = False 

mem_08!CR(8) -Value = False 

MEM_08!Trip_Relays = True 

Call ldle__Time(0.5) 
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End Sub 

Public Sub Relays_Off() 

Call ShowMsgData(Log!Term, "Sub: Relays_Off ") 
Dim ii As integer 
'Turn off all Relays 
For ii = 1 To 8 

MEM__08!CR(ii) -Value = False 
Next ii 

MEM_08!Trip_Relays = True 
End Sub 

public Sub Fill_Cuvette_Solvent() 

Call ShowMsgData(Log!Term, "Sub: Fi 1 l_Cuvette_sol vent") 

'Fill Cuvette with Solvent 

Dim FSteps As Single, FString As String 

'Steps Required to Fill Cuvette 
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FSteps = lnt(MeOH_Syr_UStep * CuVol + 2400) 

'Turn on Micro stirbar 

MEM_08!CR(7) .Value = True 

MEM_08!Trip_Relays = True 

Call ldle_Time(0. 5) 

'Fill cuvette with solvent 

Call setsyrcmd(4, MeOH_Syr, "OEM") 

Call SyrCmd("v2500R") 

Call SyrCmd("VB") 

FString = "p" & Trim$(str(FSteps)) & "R" 
Call SyrCmd(FString) 
call syrCmdC'VA") 

FString = "d" & Trim$(Str (FSteps)) & "R" 
Call SyrCmd(FString) 
call idleTillDone 
End Sub 

Public Sub PrepForMsmt(SampleNo As integer) 
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Call showMsgData(Log!Term, "Sub: PrepForMsmt") 
'Assign unique Experiment No to Each compound 

CP_Expt_No (SampleNo) = Format(Date$, "yyyymmdd") & "_" & Format(Time$, 
"hhmmss") 

'Assign Experiment Date 

Expt_Date (SampleNo) = Format (Date$ , "mmm d yyyy") 

'if (SampleNo Mod 45) = 0 Then call Ref resh_Rinse 

'Clear Grid and Graph 

Call SetUp_Graph 

'Update Display on Origin 

Call update_Displ ay C (SampleNo)) 

Call SetUp_Grid 

'Flush out Needle with Fresh DMSO before aspirating next sample 

Call Flush_Cp_Syr 

■** Aspirate sample ** 

call Move_to_Sample (SampleNo, row(sampleNo) , col (SampleNo)) 
■** Rinse & Expel 1 ** 
call Rinse_Needle 

'Mod 05/22/2000 Brian Bissett Do Not Move Arm over Turbidimeter 

'Port until Baseline Successfully Read 

'Place Arm above Hach Port 

'Call Move_to_Turbi dimeter 
'Acquire Baseline with just pH7 Buffer 
Call Acq_Baseline( (SampleNo)) 
'Place Arm above Hach Port 
Call Move_to_Turbi dimeter 
End Sub 

Public Sub HachMsmts (SampleNo as integer, AddNo As integer) 
Call showMsgData(Log!Term, "Sub: HachMsmts") 
'Update Display 

Origin!Addtn_l_abel .caption = "Addtn No. " & St r (AddNo) 
'Add compound Here 
Cal 1 Cuvette_Addi ti on 
'Mix up Compound & Buffer 
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call cuvette_Mix 
'Equilibration Time 

Idle_Time (Val (DetPams ! EQ_Ti me_Text .Text)) 
'Acquire Data from Hach 
cal 1 Acq_Hach_Dat a ( (Sampl eNo) , (AddNo) ) 
'store # of additions 
CP_Addtns (Sampl eNo) = AddNo 
End Sub 

public Sub MsmtsDone(SampleNo as integer) 
Dim temp$ 

Call ShowMsgData(Log!Term, "Sub: MsmtsDone") 

Call Append_Data(SampleNo) 

Call Oracle^Append_File (Sampl eNo) 
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ldle_Time (5) 'wait prior to Next Sample 

'Do not Rinse or Flush on Last Sample - Will wash!! 

Select case (Sampl eNo Mod 12) 

Case 0 

if sampl eNo <> Total .Samples Then 

'Iff baseline is creeping by 12th sample then use dual solvent flush 
If CP_Data(sampleNo, 0) < 0.08 Then 
Cal 1 Ri nse_Cuvette 
Else 

Call Flush_Cuvette 
End If 
End If 
Case Else 

If sampl eNo <> Total_sampl es Then 

'iff baseline > a "high" baseline then use dual solvent flush 
If CP_Data (Sampl eNo, 0) < val (DetPams! Hi gh_Baseline. Text) Then 

cal 1 Ri nse_Cuvette 

Else 
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temp$ = "Sample No." & SampleNo & " had a Baseline of: & 
CP_Data(SampleNo, 0) & " wh 

ich is considered 'high 1 : " & DetPams!High_Baseline.Text 
Call Log_Error(temp$) 
Call Flush_cuvette 
End If 
End If 
End Select 

'Move Arm out of Turbidimeter channel 
cal 1 cl ear_Tu rbi di mete r 
'Empty Needle of Sample interface 
call Empty_Needle 
End Sub 

Public Sub Reset_Syringes() 

Call ShowMsgData(l_og!Term, "sub: Reset_Syri nges") 
Call status_Di splay ("Resetting Kloehn Syringes") 
'vacum on 

MEM_08!CR(3) .value = True 
MEM_08!Trip_Relays = True 
'Reset Kloehn Syringes 
'Compound Syringe 
Call SetSyrCmd(4, Cp_Syr, "OEM") 
Call SyrCmd("w4R") 
call SyrCmd("aOR") 
1 MeOH syringe 

Call setsyrcmd(4, MeOH_Syr, "OEM") 

Call syrCmd("w4R") 

Call syrcmd("aOR") 

'pH7 Buffer Syringe 

Call setsyrcmd(4, pH7_Syr, "OEM") 

call syrCmd("w4R") 

Call SyrCmd("aOR") 

'vacum off 

MEM_08!CR(3) .value = False 
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MEM_08!Trip_Relays = True 

End Sub 

public Sub Cuvette_Mix() 

'Help Mix contents of cuvette 

Dim FSteps As single, FString as String 

Call ShowMsgData(Log!Term, "Sub: Cuvette_Mix") 

Call Status_Di splay ("Mi xing Contents of Cuvette . . .") 

'Steps Required to Fill Cuvette 

FSteps = lnt(pH7_Syr_ustep * Cuvol) 

'Fill Cuvette with pH7 Buffer 

Call Setsyrcmd(4, pH7_Syr, "OEM") 

Call SyrCmd( ,, vlOOOR") 

Call SyrCmd("VA") 

FString = "p" & Trim$(Str(FSteps)) & "R" 
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call Syrcmd (FString) 
'Call SyrCmd("VlOOOR") 
'Call syrcmd ("va") 

FString = "d" & Trim$(Str(FSteps)) & "R" 
call syrcmd (FString) 
Call syrCmd("v2500R") 
Call idleTillDone 
Call Status_Display(def_msg$) 
End Sub 

Public Sub Flush_Cuvette() 
'Dual Solvent Cleaning Rinse 

Dim MRSteps as Single, BRSteps as single, RString as string 
Dim Reps As Integer, i As Integer 
Dim statmsg$ 

Call ShowMsgData(Log!Term, "sub: Flush_Cuvette") 

Call status_Di splay ("Flushing cuvette - Please wait ! ...") 

'steps Required to Rinse Cuvette 

'= Steps Required to Fill Cuvette + just shy of 1/2 ml_ 
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MRSteps = lnt(MeOH_Syr_UStep * cuvol * 0.9) 
BRSteps = int(pH7_syr_ustep * Cuvol + 1000) 
'Switch to solvent no. 2 
mem_08!CR(4) .value = True 
mem_08!CR(5) .value = True 
MEM_08!CR(7) .Value = True 
MEM_08!Trip_Relays = True 
'Empty Cuvette of Liquid Contents 
Cal 1 Empty_cuvette 
'Fill pH7 Syringe 
call setSyrCmd(4, pH7_Syr, "OEM") 
call SyrCmdC'VSOOOR") 
call SyrCmdC'VB") 

RString = "p" & Trim$(Str(BRSteps)) & "R" 
Cal 1 SyrCmd(RStri ng) 

For i = 1 To 2 

'Fill Solvent Syringe 

Call SetSyrCmd(4, MeOH_Syr, "OEM") 

Call SyrCmd( ,, v5000R ,, ) 

Call SyrCmdC'VB") 

RString = "p" & Trim$(str (MRSteps)) & 11 R M 
Cal 1 Sy rCmd(RStri ng) 
'Dispense solvent into Cuvette 
Call SyrcmdC'VA") 

RString = "d" & Trim$(str(MRSteps)) & "R" 
Cal 1 SyrCmd(RStri ng) 
If i < 2 Then 

call idleTillDone 

Call ldle_Time(l) 

Cal 1 Empty_Cuvette 
End If 
Next i 

'work solvent Thru Cuvette 10 Times at High speed & Pressure 
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Call Syrcmd( n v5000R M ) 
For i = 1 to 10 

'Aspirate solvent From Cuvette 

RString = "p" & Trim$(str(MRSteps)) & "R" 

call syrCmd(RStri ng) 

'Dispense Solvent in Cuvette 

RString = "d" & Trim$(str(MRSteps)) & "R" 

Cal 1 SyrCmd(RSt ri ng) 

statmsg$ = "Flushing Cuvette - Windex Wash No." & Str(i) 

Cal 1 status_Di spl ay (statmsg$) 

If i = 5 Then Call idl e_Time(30) 
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Next i 

Call ldle_Time(30) 

Cal 1 Empty_Cuvette 
'Switch back to default Solvent 
MEM_08!CR(4) .value = False 
MEM_08!CR(5) -Value = True 
mem_08!cr(7) .value = True 
MEM_08!Trip_Relays = True 

'DMSO Again 
For i = 1 To 3 

statmsgS = "Flushing cuvette - dmso wash No." & Str(i) 

Cal 1 Status_Di spl ay (statmsgS) 

'Fill Solvent Syringe 

Call SetSyrCmd(4, MeOH_Syr, "OEM") 

Call SyrCmd("v5000R") 

Call SyrCmd("VB") 

RString = "p" & Trim$(Str(MRSteps)) & "R" 

Cal 1 Sy rcmd (RSt r i ng) 

'wait for syringes to Fill 

If i = 1 Then Call idleTillDone 
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'Dispense Solvent into Cuvette 
Call SyrCmd ("va") 

RString = "d" & Trim$(Str(MRSteps)) & "R" 
Cal 1 SyrCmd(RStri ng) 
If i < 3 Then 

Call idleTillDone 

Call ldle_Time(l) 

Cal 1 Empty_Cuvette 
End If 
Next i 

'work Solvent Thru Cuvette 2 Times at High Speed & Pressure 
'Call SyrCmd("V5000R") 
'For i = 1 To 3 

'Aspirate Solvent From Cuvette 

'RString = "p" & Trim$(str(MRSteps)) & "R" 

'Call SyrCmd (RString) 

'Dispense solvent in cuvette 

'RString = "d" & Trim$(strOiRSteps)) & " R" 

'Call syrcmd(RString) 
'Next i 

Call ldle_Time(30) 

Cal 1 Empty^Cuvette 
'Flush Cuvette with pH7 Buffer 
Call SetSyrCmd(4, pH7_Syr, "OEM") 
Call SyrCmd("v2500R") 
For Reps = 1 To 3 

statmsg$ = "Flushing Cuvette - Buffer Rinse No." & str(Reps) 

Cal 1 Status_Di spl ay (statmsgS) 

Select Case Reps 

Case 1 'Just Empty 
call syrCmd("VA") 

RString = "d" & Trim$(Str(BRSteps)) & "R" 
Cal 1 SyrCmd (RSt ri ng) 
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'Aspirate Solvent From Cuvette 

RString = "p" & Trim$(Str(BRSteps)) & "R" 

Call syrcmd (RString) 

'Dispense Solvent in Cuvette 

RString = "d" & Trim$(Str(BRSteps)) & "R" 

Call SyrCmd (RStri ng) 

Call idleTillDone 

Call ldle_Time(l) 

Cal 1 Empty_Cuvette 

Case 2 'Empty & Fill 

call Syrcmd ("vb") 
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RString = "p" & Trim$(Str(BRSteps)) & "R" 
Cal 1 Syrcmd (RSt ri ng) 
Call SyrcmdC'VA") 

RString = "d" & Trim$(str(BRSteps)) & "R" 

Cal 1 Syrcmd(RStri ng) 

'Aspirate Solvent From Cuvette 

RString = "p" & Trim$(Str(BRSteps)) & "R" 

Cal 1 Syrcmd (RSt ri ng) 

'Dispense Solvent in Cuvette 

RString = "d" & Trim$(str(BRSteps)) & "R" 

Call SyrCmd(RString) 

Call IdleTillDone 

Call Idle_Time(5) 

Cal 1 Empty_Cuvette 
Case 3 'Just Fill with Fresh pH7 Buffer 

call Fill_Cuvette 
End select 
Next Reps 
Call IdleTillDone 

call status_Di splay ("cuvette Flush Complete") 
End sub 
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Public Sub wash_cuvette() 
'Dual solvent cleaning Rinse 

Dim MRSteps As single, BRSteps as Single, RString As String 
Dim Reps As integer, i As integer 
Dim cycle As Integer 
Dim statmsg$ 

Call ShowMsgData(Log!Term, "Sub: Wash_Cuvette") 

Call Status_Display("washing cuvette - Please wait ! ") 

'Steps Required to Rinse Cuvette 

'= Steps Required to Fill Cuvette + just shy of 1/2 ml. 

MRSteps = lnt(MeOH_Syr_UStep * Cuvol * 0.9) 

BRSteps = Int(pH7_Syr_UStep * Cuvol + 1000) 

'Switch to Solvent No. 2 

MEM_08!CR(4) .Value = True 

MEM_08!CR(5) .Value = True 

MEM_08!CR(7) .value = True 

MEM_08!Trip_Relays = True 

'Empty Cuvette of Liquid Contents 

Cal 1 Empty_Cuvette 

'Fill pH7 syringe 

Call setsyrcmd(4, pH7_Syr, "OEM") 

call syrCmdCvSOOOR") 

Call SyrCmdC'VB") 

RString = "p" & Trim$(Str(BRSteps)) & "R" 
Cal 1 SyrCmd(RStri ng) 

For i = 1 To 2 

'Fill Solvent Syringe 

Call Setsyrcmd(4, MeOH_Syr, "OEM") 

Call SyrCmd("V5000R M ) 

Call syrcmd("VB") 

RString = "p" & Trim$(str (MRSteps)) & "R" 
Cal 1 SyrCmd(RStri ng) 
'Dispense Solvent into cuvette 
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Call SyrCmd("VA") 

RString = "d" & Trim$(Str(MRSteps)) & "R" 
Call SyrCmd(RString) 
if i < 2 Then 

Call idleTillDone 

Call ldle_Time(l) 

Cal 1 Empty__Cuvette 

End If 

Next i 
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'work Solvent Thru Cuvette 10 Times at High Speed & Pressure 
Call SyrCmd("v5000R") 
For cycle = 1 To 3 
For i = 1 To 10 

statmsgS = "washing Cuvette - windex Rinse No." & str(i) & " of 
Call Status__Di splay (statmsgS) 
'Aspirate solvent From Cuvette 
RString = "p" & Trim$(str(MRSteps)) & "R" 
cal 1 Sy rCmd (RSt ri ng) 
'Dispense Solvent in Cuvette 
RString = "d" & Trim$(Str(MRSteps)) & "R" 
call syrcmd (RString) 
Call IdleTillDone 
If i = 5 Then Call Idl e_Time(30) 
Next i 

Call ldle_Time(300) 
Next cycle 
Cal 1 Empty_Cuvette 
'Switch back to default Solvent 
mem_08!CR(4) .value = False 
MEM_08!CR(5) .Value = True 
MEM_08!CR(7) .value = True 
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MEM_08!Trip_Relays = True 

'DMSO Again 
For i = 1 To 3 

statmsg$ = "washing Cuvette - DMSO Rinse No." & Str(i) & " of 3" 

call status_Display(statmsg$) 

'Fill solvent syringe 

Call setsyrcmd(4, MeOH_syr, "OEM") 

Call syrCmd("v5000R") 

Call syrCmd("VB") 

RString = "p" & Tri m$(Str(MRSteps)) & "R" 

call syrcmd(RString) 

'wait for syringes to Fill 

'If i =1 Then Call idleTillDone 

'Dispense solvent into Cuvette 

Call SyrCmd("VA") 

RString = "d" & Trim$(Str(MRSteps)) & "R" 
Call Syrcmd (RString) 
if i < 3 Then 

Call IdleTillDone 

Call ldle_Time(l) 

Cal 1 Empty_cuvette 
End If 
Next i 

'work solvent Thru Cuvette 2 Times at High Speed & Pressure 
call SyrCmd("v5000R") 
For cycle = 1 To 3 
For i = 1 To 10 

statmsg$ = "washing Cuvette - Cycle " & Str (cycle) & " of 3 " & "Rinse " 
& str(i) & " of 1 

0" 

Call status_Display(statmsg$) 

'Aspirate Solvent From Cuvette 

RString = "p" & Trim$(Str (MRSteps)) & "R" 

Cal 1 SyrCmd(RSt ri ng) 
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'Dispense Solvent in cuvette 
RString = "d" & Trim$(str(MRSteps)) & "R" 
Cal 1 syrCmd(RStri ng) 
Call idleTillDone 
Next i 

Call ldle_Time(300) 

Next cycle 

cal 1 Empty__Cuvette 
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'Flush cuvette with pH7 Buffer 
Call SetSyrCmd(4, pH7_Syr, "OEM") 
Call SyrCmd("v2500R") 
For Reps = 1 To 4 

statmsg$ = "Washing Cuvette - pH 7.0 Buffer Rinse No." & St r (Reps) & " of 4" 
cal 1 Status_Di spl ay (statmsg$) 
Select Case Reps 
Case 1 'Just Empty 
Call syrCmd( M VA") 

RString = d & Trim$(Str(BRSteps)) & n R" 
call syrCmd(RString) 
'Aspirate Solvent From Cuvette 
RString = "p" & Trim$(str(BRSteps)) & "R" 
Cal 1 syrCmd(RStri ng) 
'Dispense Solvent in Cuvette 
RString = "d" & Trim$(Str(BRSteps)) & "R" 
Call SyrCmd(RString) 
call IdleTillDone 
Call ldle_Time(l) 
Cal 1 Empty_cuvette 
Case 2, 3 'Empty & Fill 
Call syrCmd( ,, VB M ) 

RString = "p" & Trim$(Str(BRSteps)) & "r" 
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Call SyrCmd(RString) 

Call Syrcmd("VA M ) 

RString = "d" & Trim$(Str(BRSteps)) & "R" 
Call SyrCmd(RString) 
'Aspirate Solvent From Cuvette 
RString = "p" & Trim$(Str(BRSteps)) & "R" 
call Syrcmd (RString) 
'Dispense Solvent in Cuvette 
RString = "d" & Trim$(str(BRSteps)) & "R" 
Call Syrcmd (RString) 
call idleTillDone 
Call ldle_Time(5) 
Cal 1 Empty_Cuvette 
Case 4 'Just Fill with Fresh pH7 Buffer 

Call Status_Di splay ("washing Cycle Near Completion - Please Wait ! 

") 

Call Fill_Cuvette 

'Equilibration Time After wash (5 min = 300 sec) 
Call ldle_Time(300) 
End select 
Next Reps 
Call IdleTillDone 

call Status_Di splay ("Cuvette Wash is Complete !!!") 
End Sub 

Public Sub set_Relays() 

'Set Realys to Default Positions for Assay Run 

'Noise Can Inadvertantly turn a critical realy off !!! 

MEM_08!CR(5) -Value = True 'Relay Sol Pwr On 

MEM_08!CR(6) .Value = True 'Rinse Level Detect On 

MEM_08!CR(7) .Value = True 'Cuvette Micro Stir Bar On 

mem_08!CR(8) .value = True 'AC Hot Pump on 

MEM_08!Trip_Relays = True 

Call ldle_Time(0. 5) 

End sub 
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Expm_Routes - 1 



Option Explicit 
Global Cuvol as single 



'Cuvette volume 



Global ss_Conc as integer 



'Stock Solution concentration 



Global Add_vol As Single 
Global Add_Range As Single 
Global Adtn_J>ct(40) As Single 
Global Adtn_Conc(40) As Single 



'Addition volume 



'Addition Range 



'Addition Percent of DMSO 



'Addition sample concentration 



Global No_Addtns As integer 
Global Total_Add_Vol As Single 



'Number of Additions 



'Total volume of all additions 



Global Total _Amt 



'Total volume to Aspirate 



Global Buffer_Soln As String 'pH of Buffer solution 

Global Filter_value As string 'cvi Filter 

Global Append_FileName As String 'Appended Data File 

Global Final _FileName as String 'Final File written on Completion 

Global JData_FileName as string 

Global 3DC_Filename as String 

Global oracle_Final_FileName As String 

Global oracle_ J Append_Filename As string 

Global Errorl_og__Filename As String 

Global G2894A_FileName As String 

Global NoteBook_FileName As String 

Global Di r_For_Files As String 

Global Archive_Path As String 

Public Sub sol_Calcs() 

Dim loopl As integer 

For loopl = 1 To 40 

Adtn_Conc (loopl) = Format (((Add.vol * loopl) / Cuvol) * SS_Conc, "###.00") 
Adtn_Pct (loopl) = Format (((Add.Vol * loopl * 0.001) / Cuvol) * 100, "###.00") 
if Expams ! Range (1) .Value = True Then 



If Adtn_Conc (loopl) >= 65 Then 
No^vddtns = loopl 
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Total ^Add_vol = No^vddtns * Add_vol 

Total^mt = Total_Add_vol + Val (Aspi rate ! samp_lnt .Text) _ 

+ val (Aspirate !Samp_Exp. Text) + Val (Aspi rate! Samp_Rinse. Text) 
Aspi rate iTotal^Amt. caption = St r (Total _Amt) 

Expams!Add_Label .caption = "Total Number of compound Additions: " & 
Str(No_Addtns) 

Expams 'MaxSolRng. caption = "Highest solubility Range in Assay: " & 
St r (Adt n^conc (No^d 

dtns)) & " ML/mL" 

'Debug. Print ">=65 Total Amount: " , Total_Amt 

'Debug. Print "No_Addtns: No_Addtns, "Add_vol : ", Add_Vol 

'Debug. Print "Add no."; loopl, " Cone: ", Adtn„Conc(loopl) , "Percent 
dmso:", Adtn_Pct( 

loopl), "No. of Addtns:", No^Vddtns 
Exit Sub 
End If 
End if 

If Expams! Range (2) .Value = True Then 
If Adt n_Pct (loopl) >= 0.5 Then 
No_Addtns = loopl 

Total^dd_vol = No__Addtns * Add_Vol 

Total_Amt = Total_Add_Vol + val (Aspi rate! Samp_lnt. Text) _ 

+ val (Aspi rate! Samp_Exp. Text) + val (Aspi rate! Samp_Rinse. Text) 
Aspi rate! Total _Amt. caption = St r (Total _Amt) 

Expams !Add_Label . caption = "Total Number of Compound Additions: " & 
Str(No_Addtns) 

Expams !MaxSolRng. caption = "Highest Solubility Range in Assay: " & 
str(Adtn_Conc(No__Ad 

dtns)) & " ML/mL" 

'Debug. Print ">=0.5 Total Amount: ", Total _Amt 

'Debug. Print "No^Addtns: ", No_Addtns, "Add_vol : ", Add_vol 

'Debug. Print "Add No."; loopl, " Cone: ", Adtn_conc (loopl) , "Percent 
DMSO:", Adtn_Pct( 

loopl), "no. of Addtns:", No^ddtns 
Exit Sub 
End if 
Else 
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If Adtn_Pct(loopl) >= 1 Then 
No^Addtns = loopl 

Total_Add_Vol = No^Addtns * Add_vol 

Total_j^mt = Total^dd_vol + val (Aspi rate ! Samp__lnt .Text) _ 

+ Val (Aspi rate! Samp^Exp. Text) + val (Aspi rate! Samp_Rinse. Text) 
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Aspi rate! Total^mt. caption = St r (Total __Amt) 

Expams !Add_Label .caption = "Total Number of Compound Additions: " & 
Str(isio_Addtns) 

Expams !MaxSolRng. caption = "Highest Solubility Range in Assay: " & 
Str(Adtn_Conc(No_Ad 

dtns)) & " pL/mL" 

'Debug. Print ">=1.0 Total Amount: ", Total_J\mt 

'Debug. Print "No_Addtns: ", No_Addtns, "Add_Vol : ", Add__Vol 

'Debug. Print "Add No."; loopl, " Cone: ", Adtn_Conc(loopl) , "Percent 
DMSO:", Adtn_Pct( 

loopl), "No. of Addtns:", No^Addtns 
Exit Sub 
End If 
End If 

'Debug. Print "Add no."; loopl, " cone: ", Adtn_Conc(loopl) , "Percent DMSO:", 
Adtn_Pct (loopl) 

Next loopl 

'could not reach the desired cone or % within 40 Addtns - set @ 40 
No^Addtns = 40 

Total _j\dd_vol = No_Addtns * Add_vol 

Total_Amt = Total .^Add.vol + val (Aspi rate ! Samp_lnt .Text) _ 

+ val (Aspi rate! samp^Exp. Text) + Val (Aspi rate ! Samp_Ri nse .Text) 
Aspi rate ! Total _Amt. caption = St r (Total _Amt) 

Expams !Add_i_abel .caption = "Total Number of compound Additions: " & 
Str(No_Addtns) 

Expams !MaxSolRng. caption = "Highest solubility Range in Assay: " & 
str(Adtn_conc(No_Addtns;) & 

" pL/mL" 

'Debug. Print ">=0.5 Total Amount: ", Total^Amt 
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'Debug. Print "No_Addtns: ", No_Addtns, "Add_Vol : ", Add_vol 

'Debug. Print "Add No. 40" , " Cone: ", Adtn_Conc(40) , "Percent DMSO:", 
Adtn_Pct(40) , "Max No of 

Addtns: 40" 

End Sub 

Public Sub Get_Expams() 

'Find Concentration of stock solution 

if Expams ! SConc (1) .value = True Then 

Expams ! UDC_Text . Enabled = False 

SS_Conc = 10 
End if 

if Expams !SConc(2) .value = True Then 

Expams ! UDC_Text . Enabl ed = False 

SS_Conc = 20 
End if 

If Expams !sconc(3) .value = True Then 

Expams !UDC_Text. Enabled = False 

SS_Conc = 40 
End If 

If Expams! SConc (4) .value = "True" Then 
Expams !UDC_Text. Enabled = True 
SS_Conc = val (Expams! UDC_Text. Text) 
Else 

Expams ! UDC_Text . Enabl ed = False 
End If 

'Find Cuvette volume 

If Expams ! cvol (1) .value = True Then 

Expams !UDCuvol_Text. Enabled = False 

Cuvol = 2 

End If 

if Expams! cvol (2) .value = True Then 
Expams !UDCuvol_Text. Enabled = False 
Cuvol = 3 
End If 
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if Expams ! cvol (3) .value = True Then 

Expams !UDCuVol__Text. Enabled = False 

Cuvol =3.5 

End If 

If Expams! cvol (4) .value = True Then 
Expams!UDCuvol_Text. Enabled = False 
Cuvol = 4 
End If 

If Expams! CVol (5) .Value = "True" Then 

Expams !UDCuVol_Text. Enabled = True 
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Cuvol = val (Expams !UDCuVol_Text. Text) 
Else 

Expams !UDCuvol_Text . Enabled = False 
End If 

'Find Addition volume 

If Expams !AVol (1) .value = True Then 

Add_vol =0.5 

Expams ! UDA^Text . Enabl ed = False 
End If 

If Expams !AVol (2) .value = True Then 
Add_vol = 1 

Expams !UDA_Text. Enabled = False 
End if 

If Expams !AVol (3) .Value = True Then 

Add_vol = val (Expams !UDA_Text. Text) 
Expams !UDA_Text. Enabled = True 
Else 

Expams ! UDA_Text . Enabl ed = False 
End If 

'Find Addition Range 

If Expams ! Range (1) .value = True Then 

Add_Range =65 
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End If 

If Expams! Range (2) .value = True Then 
Add_Range =0.5 
End If 

If Expams !Range(3) .value = True Then 
Add_Range = 1 
End If 

'Determine Solution used in Additions 

if Expams !Buffer__Opt ion. value = True Then 

Buffer_Soln = Expams ! pH_Text .Text 

Else 

Buffer_soln = Expams ! sol vent_Text .Text 
End If 

if Expams !Filter_Opti on. Value = True Then 
Filter_Value = Expams !Wave_Text .Text 
Else 

Filter_value = "None" 
End If 

'Debug. Print "Cuvette volume: 1 ', CuVol 

'Debug. Print "Stock Sol Cone:", SS_Conc 

'Debug. Print "Addition vol : " , Add_vol 

'Debug. Print "Add_Range: " , Add_Range 

'Debug. Print "Buff er_Opti on : " , Buffer_soln 

'Debug. Print "Filter_Value: " , Filter_value 

Call sol_Calcs 

End Sub 
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Option Explicit 

Global Total_Samples as integer 
Global File_Line(400) As String 

Global Nop_lptd As integer 'Number of Plates imported 
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Global row(400) As string 

Global col (400) As String 

Global CP_No(400) As String 

Global LT_No(400) As String 

Global MW(400) as String 

Global Submitter (400) As String 

Global Sub_Date(400) As String 

Global Plate_No(400) As string 

Global Expt_Date(400) As String 

Global CP_Data(400, 50) As String 

Global CP_Sol(400) As String 

Global CP_Sol_symb(400) as String 

Global Plate_lD(4) as string 

Global CP_Expt_No(400) As String 

Global CP_Done(400) As String "when CP Experiment is Finished 

Global Database_out(400) As string 

Global JustData_Out(16000) As String 

Global oracleData_Out(400) As String 

Global OracleData_Append(400) as string 

Global PosEQ(400) As String, ActPos(400) As String 

Global Expt_valid(400) As Boolean 

'G2894A Daughter Assay Export Files 

Global PRExport(20, 24) As String 

Global TPRFiles As integer 

Function FileExists(full_path As string) As Boolean 
If Dir(full_path) <> ,,,, Then 
FileExists = True 
'Debug. Print "File Exists" 
Else 

FileExists = False 
'Debug. Print "File Doesn't Exist" 
End If 
End Function 

Function Di rectoryExi sts(f ull_path As string) as Boolean 
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if Di r(full_path, vbDi rectory) <> "" Then 
Di rectoryExi sts = True 
'Debug. Print "Directory Exists" 
Else 

Di rectoryExi sts = False 
'Debug. Print "Directory Doesn't Exist" 
End If 
End Function 
Public Sub Load_ini() 
Load syringe 

Dim one As variant, two As variant, three As variant, four As variant 
Dim temp As variant 

Open "c:\Sol ubility^ssay.ini" For input As 1 

'print #1, "[Form: Aspirate]" 

input #1, temp 

input #1, one, two, three 

Aspi rate! Samp_lnt. Text = one: Aspi rate ! Samp_Exp. Text = two: 
Aspi rate! Samp_Rinse. Text = thr 

ee 

'print #1, "[Form: DetPams]" 
input #1, temp 

input #1, one, two, three, four 

DetPams !MaxBase_Text. Text = one: DetPams !Noise_Text. Text = two: 
DetPams ! Hi gh_Basel i ne . Text 
[page 73] 
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= three: DetPams ! EQ_Time_Text .Text = four 

'print #1, "[Form: ExPams]" 

'Print #1, "[Form: ExPams: concentration]" 

input #1, temp 

input #1, temp 

input #1, temp 

ExpamslSConc(temp) .Value = True 
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Input #1, temp 

Expams!UDC_Text.Text = temp 

'Print #1, "[Form: ExPams: Cuvette volume]" 
input #1, temp 
input #1, temp 

Expams !CVol (temp) .value = True 
input #1, temp 

Expams!UDCuvol_Text .Text = temp 

•print #1, "[Form: ExPams: Addtn volume]" 
input #1, temp 
input #1, temp 

Expams !AVol (temp) .value = True 

Input #1, temp 

Expams ! UDA^_Text . Text = temp 

•print #1, "[Form: ExPams: Addtn Range]" 
input #1, temp 
input #1, temp 

Expams !Range(temp) .value = True 

•print #1, "[Form: ExPams: solution, pH_Text, Solvent]" 

input #1, temp 

input #1, one, two, three 

Expams !Buffer_opti on. value = one: Expams ! pH_Text .Text = two: 
Expams! sol vent_Text. Text = three 

'Print #1, "[Form: ExPams: Filter / wavelength]" 
Input #1, temp 
input #1, one, two 

Expams !Filter_opti on. value = one: Expams !Wave_Text .Text = two 

'Print #1, "[Form: ExPams: Screen No. - ins No.]" 
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input #1, temp 
Input #1, one, two 

Expams!Screen_Text.Text = one: Expams!ins_No.Text = two 

'Fix in Code to update New Path 

'Print #1, "[Form: Load Plates: Default Path]" 

'write #1, "\visual basi c\Project Red l_ight\Hach 2100n\Test" 

'Fix in Code to update New Path 

input #1, temp 

input #1, temp 

'Print #1, "[Form: Needle: Positions]" 
'Print #1, "[Racks - x]" 
input #1, temp 
input #1, temp 

input #1, one, two, three, four 

Needle !XOrg_Rack(l) .Text = one: Need! e !xorg_Rack(2) .Text = two 
Needle !XOrg_Rack(3) .Text = three: Needle !xorg_Rack(4) .Text = four 

'Print #1, "[Racks - Y]" 
input #1, temp 

input #1, one, two, three, four 

Needle !YOrg_Rack(l) .Text = one: Needle! YOrg_Rack(2) .Text = two 
Need! e!YOrg_Rack(3) .Text = three: Needle! YOrg_Rack(4) .Text = four 

'Print #1, "[Racks - del tax deltaY z]" 

input #1, temp 
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input #1, one, two, three 

Needle!RDelta_X.Text = one: Needle !RDelta_Y. Text = two: 
Need! e!Depth_Rack. Text = three 
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"Print #1, "[Rinse Position]" 
input #1, temp 
input #1, one, two, three 

Needle !XOrg_Rinse. Text = one: Needle!YOrg_Rinse.Text = two: 
Needle !Depth_Rinse. Text = three 

'Print #1, "[waste Position]" 

input #1, temp 

input #1, one, two, three 

Need! e!xorg_waste. Text = one: Needle!YOrg_waste.Text = two: 
Needle !Depth_waste. Text = three 

'Print #1, "[Turbidimeter Position]" 

input #1, temp 

input #1, one, two, three 

Needle !XOrg_Tur bid. Text = one: Needle! YOrg_Tur bid. Text = two: 
Needle!Depth_Turbid.Text = three 

'print #1, "[Form: Syringe]" 

'Print #1, "[Compound Delivery Syringe]" 

input #1, temp 

input #1, temp 

Input #1, one, two, three 

Syringe. S_Samp_vol .Text = one: Syringe. SCOption48. value = two: 
Syringe. s_samp (three) .value = T 

rue 

'print #1, "[pH7 Syringe]" 

input #1, temp 

Input #1, one, two, three 

Syringe.s_ph7_vol .Text = one: Syringe. SpHOption48. value = two: 
syringe. s_pH7(three) .value = Tr 



'print #1, " [MeOH Syringe]" 
input #1, temp 
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input #1, one, two, three 

Syringe. S_MeOH_Vol .Text = one: Syringe. SMeOHOption48 . Value = two: 
Sy ri nge . s_MeOH (three) . val ue 

= True 

•print #1, "[Device #]" 

•print #1, "[RSP9000 Serial Port]" 

input #1, temp 

input #1, temp 

input #1, temp 

Diagnose iRSPort (temp) .value = True 

•print #1, "[Hach Serial Port]" 
input #1, temp 
input #1, temp 

Hach !HachPort(temp) .Value = True 

•Print #1, "[MetraBus ISA card Address]" 

input #1, temp 

input #1, temp 

MetraBus.Address = temp 

'print #1, "[Export Data Filename Path]' 1 

input #1, temp 

input #1, temp 

Export! Path = temp 

'print #1, "[Upload Network Filename Path]" 

input #1, temp 

input #1, temp 

Export !Network_Path = temp 

•print #1, " [PlateReader solubility Export value]" 
input #1, temp 
input #1, temp 
Export ! Mi nsol = temp 

•print #1, "[Export Data Files checkboxes]" 
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input #1, temp 
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Input #1, temp 

Export ! Hi ghDose_Chk. Value = temp 
input #1, temp 

Export IchkTData. value = temp 
input #1, temp 

Export IchkJData. value = temp 
Close 1 

Call Determine_Hach_Port 

Call Change_Hach_Port(Hach_Port) 

Cal 1 Determi ne_RSP_Port 

Call Change_RSP_Port(RSP_Port) 

End Sub 

Public Sub Append_Data(ByVal SN As integer) 

'Append = Append to file or write complete file at end 

1 SN = Current Sample Number 

Dim Assay_No, pH_Ref _No , Buffer_units As String 
'Group variables (Identical per Compound) 
Dim Cone, Conc_Units as string 

Dim stock_units As String, Filter_Value_Units As String 

'variables identical per Row 

Dim ug_CP_DMSO As Single, Pct_DMSO As single 

'unique variables 

'output Line String 

Dim delim$ 

Dim Port_Fix$, Port_Group$, Port_varies$, Port_Unique$ 
Dim Port_3Data$ 

Dim ii as integer, jj As integer 
Dim JDataF As Long 

Dim CuVol_units as String, CP_sol_units As String, Msmt_Units As String 
Call showMsgData(Log!Term, "Sub: Append_Data") 
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'Comma delimited Format 

delimS = "," 

'Define Fixed variables 

Assay_No = Expams!Screen_Text.Text 

'Define Group variables 

Stock_units = "ug/uL" 

Cuvol_Units = "mL" 

CP_Sol_Units = "ug/mL" 

Msmt_Units = "NTU" 

Filter_Value_Units = "nm" 

'Define Parameters varying in Number 

Conc_units = "ug/uL" 

'Append Data for sample Just completed 
'while Assay is Running 
ii = SN 

Port_Fix$ = Assay_No & delim$ & Expams!lns__No.Text & delimS _ 
& Buffer_Soln _ 
& delimS & Msmt_Units & delimS 

'Define Common Group Parameters 

Port_Group$ = CP_No(ii) & delimS & CP_Expt_No(i i) & delim$ _ 

& LT_No(ii) & delim$ & submitter(ii) & delimS & _ 
SS_Conc & delimS & stock_units & delimS & Cuvol _ 
& delimS & Cuvol_units & delimS & CP_Sol_Symb(ii) & delimS & 

CP_Sol(ii) & delimS & CP_Sol_Units & delimS & _ 
Expt_valid(ii) & delimS & _ 

Filter_value & delimS & Filter_value_units & delimS & _ 
"Baseline:" & delimS & CP_Data(ii, 0) & delimS 
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'Define Parameters 
Port_varies$ = "" 



varying in Number 
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For jj = 1 To CP_Addtns(ii) 

If jj <= cP_Addtns(ii) Then 

Port_Varies$ = Port_varies$ & "Pet:" & delim$ & Format (Adtn_Pct (jj) , 
"###.00") & _ 

delim$ & "Cone:" & delim$ & Format (Adtn_Conc( jj) , "###.00") & delim$ 

& _ 

"Ntu:" & delim$ & Format (CP_Data(i i , jj), "###.000") & delim$ 
Else 

Port_Varies$ = Port_Varies$ & "Pet:" & delim$ & Format(Adtn_Pct (j j) , 
"###-00") & _ 

delim$ & "Cone:" & delimS & Format (Adtn_Conc(j j) , "###.00") & delim$ 

& _ 

"Ntu:" & delimS & Format (CP_Data(i i , jj), "###.000") 
End If 
Next jj 

Database_out(ii) = Port_Fix$ & Port_Group$ & Port_varies$ 
'Export Data 

If Export iDTStamp. value = True Then 

Open Archive_Path & Append_Fi 1 eName For Append As #1 

'Debug. Print "Append Data Export: "; Export ! Path .Text & Append_Fil eName 
Else 

Open Archive_Path & Export ! Fname & " .app" For Append As #1 

'Debug. Print "Append Data Export: "; Export ! Path .Text & Export! Fname & ".app" 
End If 

'Open Export ! Path. Text & Append^Fil eName For Append As #1 
Print #1, Database_Out(ii) 

Close #1 

Call ldle_Time(l) 
End Sub 

Public Sub Final _Export() 

'Assay complete, Export Files Chosen by user 
Dim Assay_No, pH_Ref_No, Buffer_Units as string 
'Group variables (identical per Compound) 
Dim Cone, Conc_Units as string 

Dim stock_Units As String, Filter_value_units As string 
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'variables identical per Row 
Dim ug_CP_DMSO As Single, Pct_DMSO As Single 
'Unique Variables 
'Output Line String 
Dim delim$ 

Dim Port_Fix$, Port_Group$, Port_Varies$, Port_unique$ 
Dim Port_JData$ 

Dim ii As integer, jj as integer 
Dim DDataF As Long 

Dim cuvol_units as string, CP_Sol_Units as string, Msmt_units As string 
Call showMsgData(Log!Term, "Sub: Final Export - Begin") 
'comma delimited Format 
delim$ = 

'Define Fixed variables 

Assay_No = Expams!Screen_Text.Text 

'Define Group Variables 

Stock^Units = "ug/uL" 

CuVol_units = "itiL" 

CP_Sol_Units = "ug/mL" 

Msmt_units = "NTU" 

Filter_value_units = "nm" 

'Define Parameters varying in Number 

Conc_units = "ug/uL" 

For ii = 1 To Total_Samples 
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Port_Fix$ = Assay__No & delim$ & Expams ! ins_No .Text & delim$ _ 
& Buffer_soln _ 
& delim$ & Msmt_Units & delim$ 



'Define Common Group Parameters 

Port_Group$ = CP_No(ii) & delim$ & CP_Expt_No(ii) & delim$ _ 
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& LT_No(ii) & delim$ & submitter(ii) & delim$ & _ 
ss_conc & delim$ & stock_Units & delimS & Cuvol _ 
& delimS & cuVol_units & delimS & CP_Sol_Symb(ii) & delimS & 

CP_Sol(ii) & delim$ & CP__Sol_uni ts & delimS & _ 
Expt_valid(ii) & delimS & _ 

Filter_value & delimS & Fil ter_value_uni ts & delim$ & _ 
"Baseline:" & delim$ & CP_Data(ii, 0) & delim$ 



'Define Parameters Varying in Number 

Port_varies$ = "" 

For jj = 1 To CP^Addtns(ii) 

'Capture Baseline in Just Data Output 
If jj = 1 Then 

Port_JData$ = Port_JData$ & delimS & delim$ & _ 

delimS & delim$ & Format (CP_Data(i i , 0), "###.000") & chr$(13) & 

Chr$(10) 

End If 

If jj <= CP_Addtns(ii) Then 

Port_Varies$ = Port_varies$ & "Pet:" & delimS & Format (Adtn_Pct (jj) , 
"###.00") & _ 

delim$ & "Cone:" & delimS & Format (Adtn_Conc( j j) , "###.00") & delim$ 

& _ 

"Ntu:" & delim$ & Format (CPJata (i i , jj), "###.000") & delim$ 
'just Data 

Port_JData$ = Port_JData$ & ii & delim$ & jj & delim$ & _ 

Format (Adtn_Pct(jj), "###.00") & delimS & Format (Adtn_Conc(j j) , 
"###.00") & delimS & _ 

Format (CP_Data(ii , jj), "###.000") & Chr$(13) & chr$(10) 



Else 

Port_varies$ = Port_varies$ & "Pet:" & delimS & Format (Adtn_Pct(j j) , 
"###.00") & _ 

delimS & "Cone:" & delimS & Format (Adtn_Conc( j j) , "###.00") & delimS 

& _ 

"Ntu:" & delimS & Format (CP_Data(i i , jj), "###.000") 
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'Just Data 

Port_JData$ = Port_JData$ & ii & delim$ & jj & delim$ & _ 

Format(Adtn_Pct(jj), "###.00") & delim$ & Format (Adtn_Conc(jj) , 
"###.00") & delim$ & _ 

Format (CP_Data(ii , jj), "###.000") & Chr$(13) & Chr$(10) & Chr$(13) & 

chr$(10) 

End If 
Next jj 

Database_Out(ii) = Port_Fix$ & Port_Group$ & Port_Varies$ 
JDataF = JDataF + 1 
JustData_Out(JDataF) = Port_JData$ 
Port_JData$ = "" 
Next ii 

call ShowMsgData(Log!Term, "Oracle Export") 

Call status_Di splay ("Exporting oracle Data ") 

'Always Export File for upload to oracle 
if Export iDTStamp. Value = True Then 

open Archive_Path & Fi nal_Fi leName For output As #1 

'Debug. Print "Final Export: "; Export ! Path .Text & Fi nal_Fi 1 eName 

Else 

Open Archive_Path & Export ! Fname & " .csv" For Output As #1 
'Debug. Print "Final Export: "; Export ! Path .Text & ExportlFname & ".csv" 
End If 

For ii = 1 To Total .Samples 

print #1, Database_out(ii) 
Next ii 
Close #1 

call showMsgData(Log!Term, "Oracle Export - Complete") 
Call ldle_Time(10) 'Idle Between Successive Export Sessions 

'Export Just Data 
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If Export IchkDData. value = True Or Export ichkDData. value = 1 Then 
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Call showMsgData(Log!Term, "Dust Data Export: option selected") 

Call status_Di splay ("Exporting Just Data spreadsheet Format ") 

if Export !DTSt amp. value = True Then 

Open Archive_Path & DData_Fi leName For Output As #1 

'Debug. Print "Dust Data Export: "; Export ! Path .Text & DData_Fi leName 

Else 

Open Archive_Path & Export ! Fname_Text & ".jda" For Output As #1 
'Debug. Print "Dust Data Export: "; Export ! Path .Text & Export 'Fname & 

".dta" 

End if 

For ii = 1 To DDataF 

print #1, DustData_Out(ii) 
Next ii 
Close #1 

Call showMsgData (Log! Term, "Dust Data Export - Complete") 
End If 

call ldle_Time(10) 'idle Between Successive Export Sessions 

'Export Data in Table Format 
'Header 

If Export IchkTData. Value = True Or Export ! chkTData.val ue = 1 Then 

Call ShowMsgData (Log! Term, "Dust Data Table Export: Option Selected") 

Call Status_Di splay ("Exporting Dust Data Table Format ") 

DustData_Out(l) = "Addtn No:" & delimS & "Sample No." & delimS & delim$ 
For ii = 1 To Total_samples 

DustData_Out(l) = DustData_Out(l) & ii & delimS 
Next ii 
'Data 

DDataF = 2 
For jj = 0 To 40 
If jj =0 Then 

DustData_Out(DDataF) = "BaseLine: " & delimS & "%DMSO" & delimS & 
"cone:" & delim$ 

1 Format (CP_Data(i i , 0), "###.000") & delimS 
Else 
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JustData_Out(JDataF) = jj & delim$ & Format (Adtn_Pct(j j) , "###.00") & 

delim$ & Format (Adtn_conc(jj) , "###.00") & delim$ 
End If 

For ii = 1 To Total ..Samples 

JustData_OutODataF) = 3ustData_Out(JDataF) & Format (CP_Data(ii , jj), 
"###.000") & del 

im$ 

Next ii 

JDataF = JDataF + 1 
Next jj 

justData_OutODataF) = delim$ & delim$ & delim$ 

For ii = 1 To Total _samples 

JustData_out(3DataF) = 3ustData_Out(JDataF) & CP_Sol_Symb(ii) & 
CP_sol (ii) & delim$ 

Next ii 

Call ShowMsgData(Log!Term, "Data Table Export") 
If Export iDTStamp. Value = True Then 

Open Archi ve_Path & JDC_Filename For Output As #1 

'Debug. Print "Data Table Export: " ; Export ! Path .Text & JData_FileName 
Else 

Open Archi ve_Path & Export ! Fname & ".jda" For Output As #1 

'Debug. Print "Data Table Export: " ; Export ! Path .Text & Export! Fname & 

".txt" 

End If 

For ii = 1 To JDataF 

Print #1, JustData_Out(ii) 
Next ii 
Close #1 

Call showMsgData(Log!Term, "Just Data Table Export - Complete") 
End if 

Call idle_Time(10) 'Idle Between Successive Export Sessions 
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If Export! Hi ghDose_Chk. value = True or Export ! Hi ghDose_Chk. value = 1 Then 

Call status_Di splay ("Exporting G2894A Files ") 

Call G2894A_Export 
End if 

call ldle_Time(10) 

Call ShowMsgData(Log!Term, "Data Table Export - complete") 
Call Status_Di splay ("Export Function complete") 
End Sub 

Public Sub Log_Error(errorTxt$) 

Open Archive_Path & ErrorLog_Filename For Append As #1 
Print #1, errorTxt$ 

Close #1 
End Sub 

Public Sub G2894A_Export() 

Dim counter as integer, index As integer, Total As integer 
Dim ii As integer, file_name As String 
TPRFiles = 1: counter = 0 

'Determine Number of solubilities for PR Export 
For ii = 1 To Total^Samples 

if val (CP_Sol (ii)) >= val (Export IMinSol .Text) And Expt_valid(ii) = True Then 
counter = counter + 1 
If counter > 24 Then 

TPRFiles = TPRFiles + 1 
counter = 1 
End If 

PRExport (TPRFi 1 es , counter) = ActPos(ii) & chr$(44) & CP_No(ii) & 
Chr$(44) & _ 

LT_No(ii) & Chr$(44) & Chr$(44) & MW(ii) & Chr$(44) & Submi tter(i i) & 
Chr$(44) & _ 

Sub_Date(ii) & Chr$(44) & Chr$(44) & Plate_No(ii) '& chr$(13) & Chr$(10) 
End If 
Next ii 

'If all compound record low solubility no file to write! Exit 
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If counter = 0 And TPRFiles = 1 Then 

'Debug. Print "All Low Solubility no 2894 File To write" 

Exit Sub 
End if 

'Export Platereader Solubility Files 

'All files but last 

For Total = 1 To TPRFiles - 1 

if Export !DTStamp. value = True Then 

file_name = Archive_Path & G2894A_Fi 1 eName & "J' & Tri m$ (St r$ (Total)) & 

".CSV" 

Else 

filename = Archive_Path & ExportlFname & & Tri m$ (St r$ (Total)) & " .csv" 
End if 

'Debug. Print "FN"; file_name 

Open file__name For Output As #1 
For index = 1 To 24 

print #1, PRExport(Total , index) 
Next index 
Close 1 
Next Total 

'Last File for Export 

If Export iDTStamp. value = True Then 

file_name = Archive_Path & G2894A_Fil eName & & Trim$(Str$(TPRFiles)) & 
".csv" 

Else 

filename = Archive_Path & ExportlFname & "_" & Trim$(Str$(TPRFiles)) & 
".csv- 
End If 
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Open filename For Output as #1 

For index = 1 To counter 

print #1, PRExport (TPRFiles, index) 

Next index 
Close 1 
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End Sub 

Public Sub Status_Display(Msg$) 
'Display message in origin! status Bar 
originlStatusBar. SimpleText = Msg$ 
ori gi n ! statusBar . Refresh 
End sub 

Public Sub Oracle_upload_FileO 
'Assay Complete, Export Files Chosen by user 
Dim Assay_No, pH_Ref_No, Buffer_units as String 
'Group variables (identical per Compound) 
Dim Cone, Conc_Units As String 

Dim stock_units As String, Filter_Value_Units As String 

'Variables Identical per Row 

Dim ug_CP_DMSO as single, Pct_DMSO As single 

'Unique variables 

'output Line String 

Dim delim$ 

Dim Port_Fix$, Port_Group$, Port_Varies$ , Port_Unique$ 
Dim Port_JData$, check$, Upload_Path As String 
Dim ii as integer, jj As integer 
Dim DDataF As Long 

Dim CuVol_Units As String, CP_Sol_units as String, Msmt_Units As String 

Call showMsgData(Log!Term, "Sub: Final Export - Begin") 

'Comma delimited Format 

delim$ = "," 

'Define Fixed variables 

Assay_No = Expams!screen_Text .Text 

'Define Group variables 

Stock_units = "ug/uL" 

Cuvol_Units = "mL" 

CP_Sol_units = "ug/mL" 

Msmt_units = "ntu" 
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Filter_value_units = "nm" 
'Define Parameters varying in Number 
Conc_Units = "ug/uL" 

For ii = 1 To Total .Samples 

Port_Fix$ = Assay_No & delim$ & Expams ! lns_No .Text & delim$ _ 
& Buffer_Soln _ 
& delim$ & Msmt_Units & delim$ 



'Define Common Group Parameters 

Port_Group$ = CP_No(ii) & delim$ & CP_Expt_No(i i ) & delim$ _ 

& LT_No(ii) & delim$ & Submitter(ii) & delim$ & _ 
SS_Conc & delim$ & StoclOJnits & delim$ & Cuvol _ 
& delim$ & CuVol_Units & delim$ & CP_Sol_Symb(i i) & delim$ & 

CP_Sol(ii) & delim$ & CP_Sol_Units & delim$ & _ 
Expt_valid(ii) & delim$ & _ 

Filter_value & delim$ & Fi 1 ter_Val ue__uni ts & delim$ & _ 
CP_Data(ii, 0) & delim$ & "NTU" & delim$ & Expt_Date(ii) 
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OracleData_Out(ii) = Port_Fix$ & Port_Group$ 
Next ii 

Call showMsgData(Log!Term, "Oracle Export") 
'Always Export File for upload to Oracle 
checks = Export !Network_Path. Text 
if Mid(check$, Len(check$), 1) = "V Then 

Upload_Path = Export ! Network_Path .Text 

Else 

upload^Path = Export ! Network_Path . Text & "\" 
End If 
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Open upload__Path & oracl e_Fi nal_.Fi leName For Output As #1 

"Debug. Print "Final Export: upload_Path & Oracl e_Fi nal_FileName 

print #1, upload_Header 

For ii = 1 to Total ^Samples 

Print #1, oracl eData_Out(ii) 

Next ii 
Close #1 

Call ShowMsgData(Log!Term, "Oracle Export - Complete") 
call ldle_Time(10) 
End Sub 

public Sub oracl e_Append_File(ByVal SN as integer) 
'Append = Append to file or write complete file at end 
'SN = current Sample Number 

Dim Assay_No, pH_Ref_No , Buff er_JJni ts As String 
'Group variables (identical per Compound) 
Dim Cone, Conc_Units As String 

Dim Stock_Units As String, Filter_value_units as string 

'variables Identical per row 

Dim ug_CP_DMSO as single, Pct_DMSO as single 

'Unique variables 

'Output Line String 

Dim delim$ 

Dim Port_Fix$, Port_Group$, Port_vari es$ , Port_unique$ 
Dim Port_jData$ 

Dim ii As integer, jj As integer 
Dim JDataF As Long 

Dim CuVol_units As String, CP_Sol_Units as string, Msmt_units As String 

Call showMsgData(Log!Term, "sub: Append__Data") 

'Comma delimited Format 

delim$ = "," 

'Define Fixed variables 

Assay_No = Expams!Screen__Text.Text 

'Define Group variables 

Stock_units = "ug/uL" 
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CuVol_units = "jtiL" 
CP_Sol_Units = "ug/mL M 
Msmt_units = "NTU" 
Filter_value_units = "nm" 
'Define Parameters varying in Number 
Conc_Units = "ug/uL" 

'Append Data for Sample Just Completed 
'While Assay is Running 
ii = SN 

Port_Fix$ = Assay_No & delim$ & Expams !lns_No.Text & delim$ _ 
& Buffer_Soln _ 
& delim$ & Msmt_Units & delim$ 

'Define Common Group Parameters 
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Port_Group$ = CP_No(ii) & delim$ & CP_Expt_No(i i ) & delim$ _ 

& LT_No(ii) & delim$ & Submitter(ii) & delim$ & _ 
SS_conc & delim$ & stock_Units & delim$ & cuvol _ 
& delim$ & CuVol_units & delim$ & CP_Sol_Symb(ii) & delim$ & 

CP_Sol(ii) & delim$ & CP_Sol_units & delim$ & _ 
Expt_valid(ii) & delim$ & _ 

Filter_Value & delim$ & Filter_value_uni ts & delim$ & _ 
CP_Data(ii, 0) & delim$ & " NTU M & delim$ & Expt_Date(i i ) 

OracleData_Append(ii) = Port_Fix$ & Port_Group$ & Port_Varies$ 
'Export Data 

Open Archive_Path & oracle_Append_Filename For Append As #1 

'Debug. Print "Append Data Export: "; Archive_Path & oracle_Append_Filename 

'Open Export! Path. Text & Append_Fi 1 eName For Append As #1 

if ii =1 Then 

print #1, upload_Header 
End If 
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print #1, oracleData_Append(ii) 
Close #1 

Call ldle_Time(l) 
End Sub 

Public Function Upload_Header() As String 
Dim delim As String 
delim = "," 

upload_Header = "SCREEN_NUMBER" & delim & " I N STRUM ENT_N UMBER" & delim & 

" PH__BUFFER_VALUE" _ 

& delim & "solubility_units" & delim & m compound_number" & delim & 

" EXPERIMENT_NUMBER" _ 

& delim & "batch_number" & delim & "owners_initials" & delim & _ 

" STOCK_CONCENTRATION " & delim & "STOCK_CONCENTRATION__UNITS" & delim & _ 

,, cuvette_volume m & delim & "cuvette_volume_units" & delim & "solubility_operator" 

& delim & "solubility_value" & delim & "solubility_value_units" & delim & _ 

"soluble_in_dmso" & delim & "filter_value m & delim & "filter_value_units" & delim 
& _ 

"baseline" & delim & "baseline_jjnits" & delim & "expt_date" 
'Debug. Print upload Jeader 
End Function 

Public Sub CreateDataDi r(Path$) 

Dim Result As Boolean 

•check for ini File - Load if Exists 

if Mid(Path$, Len(Path$), 1) = "\" Then 

Path$ = Mid(Path$, 1, (Len(Path$) - 1)) 
End If 

'Debug. Print "Mid(Path$, Len(Path$), 1)", Mid(Path$, Len(Path$), 1) 
Result = Di rectoryExists(Path$) 
select Case Result 
Case True 

'Debug. Print "Path Found ! ! ! Do Not Recreate!" 
'MsgBox "Path Found !!", vbExclamation , "System Error" 
'Log Error Here 
Case False 

Page 129 



Automated Kinetic Solubility Assay Apparatus and Method.txt 
'Debug. Print "Path Not Found !!! Creating Dir!" 

MkDir Path$ 

End select 

End Sub 
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Option Explicit 

Global lOBoard_Address 

Global Relay_Board__Address 

Global Current_units As String 

Global CAL_Mode as Boolean 

Global LastLitLED As integer 

Public Sub ldle_Time(ByVal nsecond as single) 

Dim tO As Single, tn As Single 

Dim dummy as integer, temp$ 

'Sept 20 1999 Lockup on this rountine cause unknown 
'Use count fix for DoEvents call to try and fix 
Dim Count As Single, DoE_interval as integer 
tO = Timer 
Count = 1 

If nsecond >= 1 Then 

DoE_interval = 10000 
Else 

DoE_interval = 10000 
End If 

DoEvents_Flag = True 

'Debug. Print "Idle Time Start: "; tO; " increment: "; nsecond 
Do while Timer - tO < nSecond 
'Sept 20 1999 

If count = 1 Or Count Mod DoE_interval = 0 Then 
'Debug. Print "** DoEvents Called ** ", count 
dummy = DoEvents () 

End If 

'If we cross Midnight, back up one day 
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If Timer < tO Then 

tO = tO - CLng(24) * Cl_ng(60) * CLng(60) 
End If 

Count = Count + 1 

Loop 

DoEvents_Flag = False 
tn = Timer 

'Debug. Print "Idle Time End: " ; tn 
End Sub 

Public Sub Momentary_Contact(Bit_No%) 

'Close Designated Relay for 1/2 second, simulated Keypress 

MEM_32!OBit(Bit_No%) .value = 1 

MEM_32 !write_Button. Value = True 

Call ldle_Time(0.5) 

MEM_32!OBit(Bit_No%) .value = 0 

MEM_32!write_Button. Value = True 

End Sub 

Public Sub MainO 
Dim Result As Boolean, check$ 
'intial Board Addresses 
iOBoard^ddress = 40 
Relay_Board_Address = 20 

'Check for ini File - Load if Exists 

Result = FileExists("c:\Solubility^Assay.ini") 

Select Case Result 

Case True 

Call Load_ini 

Case False 

'Debug. Print "ini File Not Found !!!" 

MsgBox "*.ini File Not Found ! ! " , vbExclamation , "System Error 1 

'Log Error Here 

End select 
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Hach_Routes - 2 



'Load All Forms in Project 
Call Load_Forms 

call Status_Di splay ("Assay Startup Procedure - Please wait ! ") 

"Set Export Filenames 

Di r_For_Files = Format(Date$, "mmm d yyyy") & "\" 

Append_FileName = Expams ! Screen_Text <& n _" & Expams ! lns_No & "_" & Format (Date$ , 
"yyyymmdd") & For 

mat(Time$, "hhmmss") & ".app" 

Final_FileName = Expams ! screen_Text & "_" & Expams ! lns_.No & "_" & Format (Date$ , 
"yyyymmdd") & Form 

at(Time$, "hhmmss") & ".csv" 

jData_FileName = Expams ! screen„Text & "_" & Expams ! ins_No & "_" & Format (Date$ , 
"yyyymmdd") & Form 

at(Time$, "hhmmss") & ".dta" 

3DC_Filename = Expams ! Screen_Text & "__" & Expams ! lns_No & "_" & Format (Date$ , 
"yyyymmdd") & Format 

(Time$, "hhmmss") & ".txt" 

Oracle_Final_FileName = Expams ! Screen_Text & & Expams ! lns_No & "__" & 
Format (Date$, "yyyymmdd") 

& Format(Time$, "hhmmss") & ".Upload" & ".csv" 

Oracle_Append_Filename = Expams ! Screen_Text & M _" & Expams ! lns_No & "_" & 
Format (Date$, "yyyymmdd" 

) & Format(Time$, "hhmmss") & "_upload_Append" & ".csv" 

ErrorLog_Filename = Expams ! Screen_Text & "_" & Expams ! lns__No & "_" & 
Format (Date$, "yyyymmdd") & F 

ormat (Time$, "hhmmss") & ".log" 

G2894A_FileName = "G2894A_" & Format (Date$ , "yyyymmdd") & Format (TimeS, "hhmmss") 

NoteBook_FileName = Expams !screen_Text & "_" & Expams! lns_No & "_" & 
Format (DateS, "yyyymmdd") & F 

ormat(Time$, "hhmmss") & "_NoteBook" & ".xls" 

'Create Archive Directory 

'Make Directory for all Files to be Exported 
checks = Export ! Path. Text 

'Debug. Print "check /" , Mid(check$, Len(checkS), 1) 

If Mid(check$, Len(checkS), 1) = "\" Then 

Archive_Path = Export ! Path .Text & Di r_For_Files & "\" 
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Else 

Archi ve_Path = Export ! Path .Text & "\" & Di r_For_Files & "\" 
End if 

'Debug. Print "Archi ve_Path" , Archive_Path 

Call createDataDir (Archi ve_Path) 

'Default Experimental Parameters 

Call Get_Expams 

'Determine Syringe Parameters 

cal 1 Sy ri nge_Params 

'Enable Power to Relay Solenoids 

MEM_08!CR(5) .value = True 

MEM_08!Trip_Relays = True 

Call ldle_Time(0.5) 

'Make Sure cuvette is completely Empty before Starting 

Call Status_Di splay ("Make Sure Cuvette is Empty ") 

Cal 1 Empty_cuvette 

Call Status_Di splay ("Make Sure Hach is set to NTU units ") 

Call Assay_Startup 

'Hach 2100N Turbidimeter in Proper states 
Change_Hach_States : 

if startup_States_OK = False Then Goto Change_Hach_States 

'Carryover from Robotic code 
'Set syringe Speed 
PS_Speed = 1000 
SS_Speed = 1000 
Start_up = 1 

Command Exe__Go = 1 'Ready to Send First command 

'Plate Position startup Values 

Current_Rack = 1 

Last_Plate = "" 
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'Reset RSP9000 and Syringes 
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Call Status_Di splay ("Reset all Syringe Pumps Please wait ") 

Cal 1 Reset_Devi ces 

Call status^Di splay ("Startup Procedure Complete - Load Plate Files ") 

End Sub 

public Sub Reset_LED_Board() 
Dim Bit_No As integer 
For Bit_No = 0 To 7 

MEM_32!OBit(Bit__No) .value = 1 
Next Bit_No 

MEM_32!OBit (31) .value = 1 

MEM_32!OBit (30). value = 1 

'Ground capacitor Reset states 

MEM_32 !write_Button. value = True 

Call ldle_Time(l) 

For Bit_No = 0 To 7 

MEM_32!OBit(Bit_No) .Value = 0 
Next Bit_NO 

MEM_32!OBit (31) .Value = 0 

MEM_32 !OBit (30) .Value = 0 

'Unground Capacitor Allow State capture 

MEM_32 !Write_Button. value = True 

Call ldle_Time(0.5) 
End Sub 

Public Sub Assay_startup() 
'Switch to NTU Units if necessary 
Hach!Data_Acq. value = 1 
If Current_Units <> "NTU" Then 

call SwitchtoNTU 
End if 

'check Current Machine Status 
Call Machine_status 
End Sub 
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Public Sub SwitchtoNTUO 

Dim i As integer 

For i = 1 To 3 

Hach!units_Button. value = 1 

If Current_units = "NTU" Then Exit Sub 
Next i 
End Sub 

public Sub Machine_Status() 
Dim temp$ 

Log !Clear__Button. value = True 

temp$ = "Report of Machine Status: " & Time 

"Call ShowMsgData(l_og!Term, temp$) 

1 Cal 1 ShowMsgData(Log ! Term , " ") 

'If current_units <> "NTU" Then Exit Sub 

'Reset all inputs on led Board interface 

Cal 1 Reset_LED_Board 

'Red LED_Board Outputs 

MBB_32!Read_Button. value = 1 

If MBB_32!lBit(21) = 1 And Current_Uni ts = "NTU" Then 

'Call showMsgData(Log!Term, "signal Average is On!") 

Hach! Si gnal Option. Li ghtcolor = &HFF00& 

Else 

'Call showMsgData(Log!Term, "Signal Average is Off!") 

Hach! Si gnal option. Li ghtcolor = &HFFFFFF 
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End If 

If MBB_32!lBit(16) = 1 And Current_uni ts = "NTU" Then 
'call ShowMsgData(Log!Term, "Ratio Mode is on!") 
Hach! Rati oopti on. Li ghtcolor = &HFFOO& 
Else 

'call showMsgData(Log!Term, "Ratio Mode is off!") 
Hach! Rati oopti on. Li ghtcolor = &HFFFFFF 
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End If 

If MBB_32!lBit(20) = 1 Then 

'Call showMsgData (Log! Term, "I Know the Light Bulb is On!") 

Hach! Bui bopti on. Lighted or = &HFF00& 

Else 

'Call showMsgData(Log!Term, "I Know the Light Bulb is Off!") 
HachiBulbOption.Lightcolor = &HFFFFF 
End If 

If MBB_32!IBit(31) = 0 Then 

'Call showMsgData(Log!Term, "Machine Not in calibration Mode") 

HachiSOOption.LightColor = &HFFFFFF 

Hach!Sloption.LightColor = &HFFFFFF 

Hach!S20ption.Lightcolor = &HFFFFFF 

Hach!530pti on. Lighted or = &HFFFFFF 

Hach!S40pti on. Lighted or = &HFFFFFF 

El self CAI Mode = True And MBB_32 ! iBi t (31) = 1 Then 

'Call ShowMsgData(Log!Term, "Machine in Calibration Mode") 

Call cal_status 

Exit sub 
End If 

If MBB_32!lBit(19) = 1 And MBB_32 ! IBi t(18) = 0 Then 

'Call showMsgData(Log!Term, "Machine is in Manual Range Mode") 
Hach!MROption.LightColor = &HFFOO& 
Hach!AROption.LightColor = &HFFFFFF 

El self MBB_32!lBit(19) = 0 And MBB_32 ! IBi t (18) = 1 Then 
'Call showMsgData(Log!Term, "Machine is in Auto Range Mode") 
Hach!MROption.LightColor = &HFFFFFF 
HachlAROption.Lightcolor = &HFFOO& 
Else 

'Call showMsgData(Log!Term, "Error: Machine State Cannot be Determined!") 
HachiMROption.LightColor = &HFFFFFF 
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HachiAROpti on. Lighted or = &HFFFFFF 

End If 
End Sub 

public Sub showMsgDataCTerm As Control, Dta$) 
'On Error Resume Next 
Dim Nd, i 

Nd = Len(LogiTerm.Text) 
If Nd >= 16384 Then 

LoglTerm.Text = Mi d$(Log ITerm.Text , 4097) 

Nd = LenCLog iTerm.Text) 
End If 

■ point to the end of Term's data 

Log ITerm.sel Start = Nd 

Filter/handle Back space characters 

DO 

i = InStr(Dta$, Chr$(8)) 
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if i Then 

if i = 1 Then 

Log iTerm.Sel Start = Nd - 1 
Log ITerm.sel Length = 1 
Dta$ = Mid$(Dta$, i + 1) 
Else 

Dta$ = Left$(Dta$, i - 2) + Mid$(Dta$, i + 1) 
End If 
End If 
Loop While i 

• Elliminate Line Feeds (put back below) 

DO 

i = instr(Dta$, Chr$(10)) 
If i Then 
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Dta$ = Left$(Dta$, i - 1) + Mid$(Dta$, i + 1) 

End If 

Loop while i 

' Make sure all Charriage Returns have a 

' Line Feed 
i = 1 

DO 

i = lnstr(i, Dta$, chr$(13)) 
If i Then 

Dta$ = Left$(Dta$, i) + Chr$(10) + Mid$(Dta$, i + 1) 
i = i + 1 
End if 
Loop while i 

1 Add the filtered data to .Text 

The following is for debugging only 

'Add CR/LF to string following char after etx (chr$(03)) 
i = 1 

DO 

i = lnstr(i , Dta$, chr$(3)) 
if i Then 

If Len(Dta$) > i Then i = i +1 'we want char after ETX included 
If Len(Dta$) = i + 1 And Right$(Dta$, 1) = Chr$(255) Then i = i + 1 
'Above line: sometimes an additional Chr$C255) can occur 
Dta$ = Left$(Dta$, i) & chr$(13) & Chr$(10) & Mid$(Dta$, i + 1) 
i = i + 2 
End If 
Loop while i 

'LoglTerm.ForeColor = &HCO 'Red 

LoglTerm.Text = Log !Term. Text & chr$(13) & chr$(10) & Dta 
End Sub 

public Sub cal_status() 

'Determine Machine Status when in Calibration Mode 
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'Don't Check CAL led's if not in cal Mode 

if CAL_Mode = "False" Then Exit Sub 

If MBB__32!IBit(30) = 1 Then 

'Call ShowMsgData(Log!Term, "Calibration Point: Si") 

LastLitLED = 1 

HachlSlOpti on. Lighted or = &HFFOO& 
HachlsOoption.LightColor = &HFFFFFF 
Hach!S2option.LightColor = &HFFFFFF 
Hach!S30ption.LightColor = &HFFFFFF 
Hach!S40ption.LightColor = &HFFFFFF 
Exit Sub 
End If 

If MBB_32!lBit(22) = 1 Then 

"call showMsgData (Log! Term, "Calibration Point: S2") 
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LastLitLED = 2 
Hach ! S20pti on . Li ghtCol or 
Hach ! SOOpti on . Li ghtCol or 
Hach ! SlOpti on . Li ghtCol or 
Hach ! S30pti on . Li ghtCol or 
Hach ! S40pti on . Li ghtCol or 
Exit Sub 
End If 

If MBB_32!lBit(23) = 1 Then 

'Call ShowMsgData(Log!Term, "calibration Point: S3") 
LastLitLED = 3 

Hach !S30pti on. Lighted or = &HFF00& 
HachlsOoption.LightColor = &HFFFFFF 
Hach !SlOpti on. Li ghtCol or = &HFFFFFF 
Hach !S20pti on. Li ghtCol or = &HFFFFFF 
Hach !S40pti on. Li ghtCol or = &HFFFFFF 
Exit Sub 



= &HFF00& 
= &HFFFFFF 
= &HFFFFFF 
= &HFFFFFF 
= &HFFFFFF 
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End If 

If MBB_32!IBit(17) = 1 And (LastLitLED = 0 or LastLitLED = 3) Then 
'Call showMsgData (Log! Term, "calibration Point: S4") 
LastLitLED = 4 

Hach!S40ption.LightColor = &HFFOO& 
HachiSOOption.LightColor = &HFFFFFF 
HachlSlOption.LightColor = &HFFFFFF 
Hach!S20ption.LightColor = &HFFFFFF 
Hach!S30ption.LightColor = &HFFFFFF 
Exit Sub 
End If 

If MBB_32!lBit(31) = 1 And (LastLitLED = 1 or LastLitLED = 4) Then 
'Call showMsgData(Log!Term, "calibration Point: SO") 
LastLitLED = 0 

HachiSOOption.LightColor = &HFF00& 

HachlSlOption.LightColor = &HFFFFFF 

Hach!s20ption.LightColor = &HFFFFFF 

Hach!s30ption.LightColor = &HFFFFFF 

Hach!s40ption.LightColor = &HFFFFFF 

Exit sub 
End If 
End Sub 

Public Sub Load_Forms() 
'Startup Form 
Load origin 
Origin. Show 
Origin.SetFocus 

OriginimnuBegin. Enabled = False 

Load About 

Load Aspi rate 

Load DetPams 

Load Diagnose 

Load Expams 
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Load Hach 

Load Kloehn 

Load Lab_Samp 

Load Load_Plates 

Load Log 

Load MBB_32 

Load MEM_08 

Load MEM_32 

Load Messages 
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Load Export 
Load Needle 
Load NOtDMSOSol 
Load Position 
Load RSPLog 
Load syringe 
Load TestPos 
End sub 

Public Function Startup_States_OK() As Boolean 
Dim temp$ 

Startup_States_OK = True 

Log !Clear_Button. value = True 

temp$ = "Report of Machine status: " & Time 

'Call ShowMsgData(Log!Term, temp$) 

'Call ShowMsgData(Log!Term, 

If Current_Units <> "NTU" Then 

MsgBox "Put Hach 2100N Turbidimeter in 1 NTU 1 Mode !!!!", vbOKOnly + 
vbcritical, "Hach 2100N Er 

ror 

Startup_states_OK = False 
End If 

'Reset all inputs on LED Board interface 
call Reset_LED__Board 
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'Red LED_Board outputs 

MBB_32!Read_Button. value = 1 

If MBB_32!lBit(21) = 1 And current_Uni ts = "NTU" Then 
'Call showMsgData(Log!Term, "signal Average is On!") 
Hach! Signal Option. Lighted or = &HFFOO& 
Else 

MsgBox "Turn On Signal Average !!!!", vbOKOnly + vbcritical, "Hach 2100N 
Error" 

startup_states_OK = False 

'Call ShowMsgData(Log!Term, "signal Average is off!") 
Hach ! si gnal Option. Li ghtcol or = &HFFFFFF 
End if 

if MBB_32!lBit(16) = 1 And Current_Uni ts = "NTU" Then 
'call showMsgData(Log!Term, "Ratio Mode is On!") 
Hach! Rati oopti on. Li ghtcol or = &HFF00& 
Else 

MsgBox "Turn On Ratio !!!!", vbOKOnly + vbcritical, "Hach 2100N Error" 
Startup_states_OK = False 

'Call showMsgData(Log!Term, "Ratio Mode is Off!") 
Hach! Rati oopti on. Li ghtcol or = &HFFFFFF 
End If 

If MBB_32!lBit(20) = 1 Then 

'Call ShowMsgData(Log!Term, "I Know the Light Bulb is On!") 

Hach !BulbOpti on. Li ghtcol or = &HFF00& 

Else 

MsgBox "Light Source Off - Check Light Bulb !!!!", vbOKOnly + vbcritical, 
"Hach 2100N Error" 

Startup_States_OK = False 

'Call ShowMsgData(Log!Term, "I Know the Light Bulb is Off!") 
Hach !BulbOpti on. Li ghtcol or = &HFFFFF 
End If 

If MBB_32!lBit(31) = 0 Then 
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'Call showMsgData (Log! Term, "Machine Not in calibration Mode") 

Hach!S0Option.LightColor = &HFFFFFF 

Hach!slOpti on. Lighted or = &HFFFFFF 
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Hach!S20pti on. Lighted or = &HFFFFFF 

Hach!S30pti on. Lighted or = &HFFFFFF 

Hach!s40pti on. Lighted or = &HFFFFFF 

El self CAL_Mode = True And MBB_32 ! IBi t(31) = 1 Then 

'call ShowMsgData (Log! Term, "Machine in calibration Mode") 

MsgBox "Machine Cannot be in CALIBRATION Mode !!!!", vbOKOnly + vbCritical, 
"Hach 2100N Error" 

Startup_States_OK = False 

Call cal _status 

Exit Function 

End if 

If MBB_32!lBit(19) = 1 And mbb_32 ! IBi t(18) = 0 Then 

'Call showMsgData(Log!Term, "Machine is in Manual Range Mode") 
Hach!MROption.LightColor = &HFF00& 
HachiAROption.LightCdor = &HFFFFFF 

MsgBox "AutoRange Must be selected !!!!", vbOKOnly + vbCritical, "Hach 2100N 
Error" 

Startup_States_OK = False 

Elself MBB_32!lBit(19) = 0 And MBB_32 ! IBi t (18) = 1 Then 
'Call showMsgData(Log!Term, "Machine is in Auto Range Mode") 
HachlMROption.LightColor = &HFFFFFF 
HachlAROption.LightColor = &HFF00& 
Else 

'Call ShowMsgData(Log!Term, "Error: Machine state Cannot be Determined!") 
HachlMROption.LightColor = &HFFFFFF 
HachlAROption.LightColor = &HFFFFFF 
End If 

'Debug. Print "Startup States", Startup_States_OK 
'Stop 
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End Function 
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Option Explicit 
Defint A-z 

Global lnstr_No(100) As String 

Global No_of_lns As integer, Curr_lns As integer 
Global Start-up as integer, CommandExe_Go as integer 
Global DoEvents_Flag As Boolean 
Global Master_Syringe As integer 

Global XL_Cmd_Sent as integer, ignore_Replies As integer 

Global DevNo_l_ast_Cmd As Integer 

Global CP_Position(96) As string 

Global Plate_Ident(96) As String 

Global Last_Plate As string 

Global Current_Rack As integer 

'Parsed Sample Bank File 

Global Curr_Path as string 

1 3 Syringes for Solubility Assay 

Global DevNo_Samp As integer 

Global DevNo_pH7 As integer 

Global DevNo_MeOH As integer 

public Sub Call_DoEvents() 

'Only one DoEvents Call at a Time !!!! 

If DoEvents_Flag = True Then Exit Sub 

DoEvents 

DoEvents_Flag = True 
End Sub 

Function Chksum(var$) As integer 

'calculates vertical checksum needed for transmit string 
'var$ is the string for which to calculate a checksum 

Dim i , temp 

temp = 0 
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For i = 1 to Len(var$) 

temp = temp xor Asc(Mid$(var$ , i, 1)) 
Next i 

ChkSum = temp 
End Function 
Sub initCmdQueueO 
Dim i As integer 

'initializes the command queue which holds commands and responses 

ReDim cmdArySCl, 1 To CmdQueueSize) ' (0,x) holds cmd sent to XL 

' (l,x) holds reply rec'd 

1 x is 1 to CmdQueueSize 

ReDim TimesCmdSent(l To CmdQueueSize) 'number of times cmd sent 

CmdNextAvail =1 'initialize XL cmd pointer (1 to 

CmdQueueSize) 

CmdNextExec = 0 'initialize XL cmd pointer (1 to 

CmdQueueSize) 

'0 means no cmds in queue 

For i = 1 To CmdQueueSize 

Timescmdsent(i) = -1 'no mssg or already sent 

Next i 
End Sub 

Sub PushToQueue(var$) 

'var$ is the command to place in the queue 
while CmdNextAvai 1 = CmdNextExec 

ldle_Time (0.2) 'If Command Queue Full Allow to Empty 

wend 

'Place command in Queue 

If CmdNextExec = 0 Then CmdNextExec = CmdNextAvai 1 
CmdAry$(0, CmdNextAvai 1) = var$ 

CmdAry$(l, CmdNextAvail) = "" 'Clear response 

TimesCmdSent (CmdNextAvai 1) = 0 'Cmd not yet sent 

If CmdNextAvail = CmdQueueSize Then 
[Page 92] 
IOPROC - 2 



CmdNextAvail = 1 
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Else 

CmdNextAvail = cmdNextAvail + 1 
End If 

1 Above block effects wrap in circular queue 
End Sub 

Function Stri ngToHex(TextS) As String 

'converts Text$ to a string comprised of hex codes for each ASCII char. 
Dim Tempint As integer, i As integer 
Dim FinStr As String, Tempstr As String 
Finstr = "" 

For i = 1 to l_en(Text$) 

Tempint = Asc(Mid$(Text$, i, 1)) 
select Case Tempint 
case 10 

Tempstr = chr$(10) 
case Else 

Tempstr = Hex$(Templnt) 

If Len(TempStr) < 2 Then Tempstr = "0" + Tempstr 
End Select 

FinStr = FinStr + " " + Tempstr 
Next i 

stringToHex = FinStr 
End Function 

Function Transmi tStr(XLSeqNum As Integer, ArmNum As integer, XLAddr As integer, 
XLCmd$, XLData$) A 

s String 

Build the command string from the following pieces 
in preparation to sending it to the XL device. 

XLSeqNum = the sequence number (1 to 7) (>1 indicates repetition) 
ArmNum = the RSP arm number (1 or 2) 
XLAddr = the device address CI to 9) 
XLCmd$ = single ASCII char command to device 

XLData$ = variable length ASCII string sent with XLCmd$; may be empty 
Format of the finished command is: 
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FF 02 Addr seq Data . . . Data 03 Chksum (each a hex code) 
Addr is 31 -> 3F 

1 Seq is a hex value made up of the following binary code: 

' [0011 + rep + XLSeqNum] where 

1 rep = 0 for original mssg, 1 for repeats 

XLSeqNum is 3 binary digits coding XLSeqNum sent to this routine 

1 Data is 0 or more hex values making up the ASCII data string 
Chksum is STX to ETX (inclusive) XOR'd 

Dim tempi As String, temp$ 

tempi = &H40 'Binary 01000000 

If XLSeqNum > 1 Then tempi = tempi or 8 'rep bit set 

tempi = tempi Or XLSeqNum 'Seq byte complete 

temp$ = chr$(2) & chr$(templ) 

temp$ = temp$ & LTrim$(Hex$(ArmNum)) 

temp$ = temp$ & LTrim$(Hex$(XLAddr)) 

temp$ = temp$ + XLCmd$ + XLDataS + chr$(3) 

temp$ = temp$ + Chr$(ChkSum(temp$)) 

temp$ = Chr$(&HFF) + temp$ 'String begins with Asc(255) 

TransmitStr = temp$ + chr$(13) 'This is just to clear the input string! 

End Function 
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Public Function HexToBi n$(Hex_No$) 
Dim i As integer, j As integer 
Dim Bin_Eq(16) As String 
Dim Hex_Eq(16) As String 
'Define Equivilant Conversion Factors 
Bin_Eq(l) = "0000": Hex_Eq(l) - "0" 
Bin_Eq(2) = "0001": Hex_Eq(2) = "1" 
Bin_Eq(3) = "0010": Hex_JEq(3) = "2" 
Bin_Eq(4) = "0011": Hex_Eq(4) = "3" 
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Bin_ 


.Eq(5) = 


"0100": 


Hex_Eq(5) = 


M 4" 


Bin_ 


-Eq(6) = 


"0101" : 


Hex_Eq(6) = 


" 5 11 


Bin. 


-Eq(7) = 


"0110" : 


Hex_Eq(7) = 


M 6" 


Bi n_ 


_Eq(8) = 


"0111": 


Hex_Eq(8) = 


M -j ii 


Bi n_ 


-Eq(9) = 


"lOOO": 


Hex_Eq(9) = 


■'8" 


Bin. 


-Eq(10) 


= n 1001" 


: Hex_Eq(10) 


_ "g" 


Bin. 


-Eq(ll) 


= "1010" 


: Hex_Eq(ll) 


= "A" 


Bin. 


_Eq(12) 


= "1011" 


: Hex_Eq(12) 


= "B" 


Bi n. 


-Eq(13) 


= "1100" 


: Hex_Eq(13) 


= "c" 


Bin. 


_EqC14) 


= "1101" 


: Hex_Eq(14) 


= "D" 


Bin. 


_Eq(15) 


= "1110" 


: Hex_Eq(15) 


II £ II 


Bin. 


_Eq(16) 


= "1111" 


: Hex_Eq(16) 


Itpll 



'Convert Hex_No$ to Binary Format 
For i = 1 To Len(Hex_No$) 
For j = 1 To 16 

If Mid$(Hex_No$, i, 1) = Hex_Eq(j) Then 
HexToBin$ = HexToBinS & Bin_Eq(j) 
Exit For 
End If 
Next j 
Next i 

'ShowMsgData Messages !MsgFi eld, HexToBinS 
End Function 

Public Sub Rep1yECD(reply$) 

' rsp Reply Error correction and Detection 

Dim delim$ 

Dim First_msg$, bin_format$, cont_byte$ 
Dim Check_Byte$, check% 
Dim axis_pos$, Devi ce_Reply$ , Device_No$ 
Dim i As integer 

'DO NOT RESPOND TO UNSOLICITED REPLIES AFTER COMMAND "ACK" 

'WAIT FOR NEXT COMMAND TO BE SENT TO ENABLE "Reply ECD" SUBROUTINE 
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if ignore_Replies = 1 Then Exit Sub 
delimS = Chr$(32) 

Token delimS, replyS, 2, First_msg$ 
If Trim$Creply$) <> "41 63 6B" Then 

'ShowMsgData Messages IMsgFi eld, "Echo Hex Device Reply: " & replyS 

End if 

'ShowMsgData Messages iMsgFi eld, "First Message: " ; First_msg$ 
select case First_msg$ 
Case "30" 

GoSub Native_Kloehn: 
'Case "41" 

'Gosub Art_Reply: 
Case "02" 

Gosub STX_Found: 
case Else 

GoSub Unknown_Header : 
End Select 

Select Case Devi ce_Reply$ 

Case "RSP" 
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If (XL_Cmd_Sent = 0) And Devi ce_Reply$ = "RSP" Then 

'ShowMsgData Messages IMsgFi eld, "RSP reply to rsp command" 
Call RSP_ECD(bin_format$) 

End if 

Case "Syringe" 

if (xu_cmd_sent = 1) And Devi ce_Reply$ = "Syringe" Then 

ShowMsgData Messages IMsgFi eld, "KLOEHN REPLY TO SYRINGE COMMAND" 
'Debug. Print "command is: " , Diagnose lArgstrTxt .Text 
'Debug. Print "** Kloehn Reply is: "; reply$; " **" 
'Debug. Print "CommandExe_Go = "; CommandExe_Go 
Call Diluter_ECD(reply$) 
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•call KLOEHN_ECD(bin_format$) 

'call Kloehn_Reply(reply$) 

End If 
End select 
Exit Sub 
Color_Normal : 

Diagnose !Mssg_Text . ForeColor = &H0& 

Diagnose !Mssg_Text .Backcolor = &HFFFFFF 
Return 
STX_Found : 

'capture Control Byte Convert from Hex to Bin 
Token delim$, reply$, 3, cont_byte$ 
bin_format$ = HexToBi n$(cont_byte$) 
•print Binary Format of Cntrl Byte 
Diagnose !CByte_Text .Text = Str(bi n_format$) 
GoSub Color_Normal 
Token delim$, reply$, 5, Device_No$ 
If Device_No$ = "38" Then 

Device_Reply$ = "RSP" 

Else 

Device_Reply$ = "syringe" 

End If 
Return 
Art_Reply : 

'Artificial RSP Reply Disregard 

'ShowMsgData Messages !MsgFi eld, "Artificial Reply - ignored" 
'valid Reply only for Non RSP Devices 
If XL_Cmd_Sent = 1 Then 
CommandExe_Go = 1 

Diagnose !Mssg_Text .Text = "Reply: Artificial RSP" 
•ShowMsgData Messages !MsgFi eld, "internally Generated Reply" 
End If 
Exit Sub 
Return 
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Native_Kloehn : 

'Native Kloehn Reply 
Command Exe_Go = 1 

'Debug. Print "Native Kloehn Reply: ", reply* 
'Stop 

Diagnose !Mssg_Text .Text = "Reply: Native Kloehn" 
'ShowMsgData Messages !MsgFi eld, "Native Kloehn Reply" 
Exit Sub 
Return 

Unknown_Header : 

Token delim$, reply$, 3, cont_byte$ 

if cont__byte$ <> "02" Then Return 

'Capture Control Byte Convert from Hex to Bin 

Token delim$, reply$, 4, cont_byte$ 

bin_format$ = HexToBi n$(cont_byte$) 

'print Binary Format of Cntrl Byte 

Diagnose!CByte_Text.Text = Str(bin_format$) 

GoSub color_Normal 
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Token delim$, reply$, 5, Device_No$ 
If Device_No$ = "38" Then 

Device_Reply$ = "RSP" 

Else 

Device_Reply$ = "Syringe" 
End If 
Return 
End Sub 

Public Function Bi t_Mask%(strl$, str2$) 

Dim power%, i As integer 

'Different Length $ cannot be compared 

if i_en(strl$) <> Len(str2$) Then Exit Function 

power% = 0 
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For i = Len(strl$) To 1 step -1 

If Mid$(strl$, i, 1) = 1 And Mid$(str2$, i, 1) = 1 Then 

Bit_Mask% = Bit_Mask% + 2 a power 

End if 

power% = power% + 1 
Next i 

End Function 

public Sub Execute_Primitive(lns$, pl$, p2$, P3$) 

Dim delim$, axis_pos$, i As integer 

'wait 1/2 second before sending next Cmd 

'Call ldle_Time(0.5) 

delimS = " " 

'Check Dead zone 

'if lns$ = "pa" Then GoSub check_zone 
'Display Next Position 

if lns$ = "pa" Then GoSub Report_Posi tion 
'Place Next command in QUE 

Diagnose I ArgStrTxt = lns$ & chr$(32) & Pl$ & Chr$(32) & P2$ & Chr$C32) & P3$ 

call Auto_Execute 

'ShowMsgData MessageslMsgField, "" 

'ShowMsgData MessageslMsgField, "** Command " & Trim$(Diagnose!ArgStrTxt) & " 
issued **" 

'ShowMsgData MessageslMsgField, "" 
'ShowMsgData MessageslMsgField, "" 
CommandExe_Go = 0 'Set = 1 when "Ack" recieved 
'OEM_Statts%CcurrentDev) = 0 'Set = 1 when "Ack" recieved 
Select Case Last_cmd_Sent 
case "rsp" 

Select Case xi__Cmd_sent 

case 0 



'ShowMsgData MessageslMsgField, "rsp command Sent" 

RSP_waiting: 
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call Poll_status 

Call ld!e_Time(0. 5) 

Call CMD_Reissue 

Call idle_Time(0.5) 

If command Exe_Go = 0 Then Goto RSP_waiting 

Case 1 

' ShowMsgData Messages !MsgFi eld, "Kloehn command Sent via RSP Format" 
Diluter_waiting: 

Call Diluter_Status 
Call ldle_Time(0.5) 
call Diluter_Reissue 
call ldle_Time(0.5) 

If commandExe_Go = 0 Then Goto Diluter_Waiting 
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End Select 
End Select 
■case "OEM" 

'ShowMsgData Messages !MsgFi eld, "OEM command Sent" 
1 Last_OEM_Cmd = Diagnose lArgStrTxt 
'Call ldle_Time(0. 5) 

'if Diagnose !StatusLabel .caption = "Ready" Then Exit sub 
'If OEM_Statts%(CurrentDev) = 1 Then Exit Sub 
'OEM_waiting: 

'call OEM_Poll_status 

'If OEM_Statts%(CurrentDev) = 1 Then Exit sub 

•DiagnoselArgStrTxt = ins$ & Chr$(32) & Pl$ & Chr$(32) & P2$ & Chr$(32) & P3$ 
'Call OEM_cmd_Reissue 
'Call ldle_Time(0.5) 

'If OEM_Statts%CCurrentDev) = 0 Then Goto OEM_Waiting 
'End select 
Exit Sub 
Report_Posi ti on : 
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Diagnose !Axis(0) .Text = Pl$ 
Diagnose !Axis(l) .Text = P2$ 
Diagnose! Axis (2) .Text = P3$ 
Return 

End Sub 

Public Sub Poll_StatusO 
Dim i As integer 

For i = 1 To 50 1 300 'Begin Polling for Status, (poll up to 60 

sec) 

ldle_Time (0.2) 'Pause for Specified time (l/20th second) 

Diagnose !DevStatts = "True" 'Hit device status button 

If Diagnose ! StatusLabel = "Ready" Then 'if Status = "Ready" quit 
waiting execute next i 

nstruction 

Exit For 
End If 

'Call_DoEvents 'Pass Control to Operating system 
Next i 

'DoEvents_Flag = False 
End sub 

Public Sub RSP_ECD(bin_format$) 

'Reply Error correction and Detection 

'Call only when last command issued was "RSP" 

'and Reply recieved was RSP . ! 

Dim delim$, axis_pos$ 

Dim check_Byte$, check% 

Dim i As integer 

Check_Byte$ = "11111111" 

check% = Bit_Mask%(bin_format$, check_Byte$) 
If check% = 64 Then 

Diagnose !Mssg_Text. Text = "Acknowledge" 

'ShowMsgData Messages !MsgFi eld, "Reply: Acknowledge" 

'Enable Next command to be Sent 
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Command Exe_Go = 1 

lgnore__Replies = 1 

Exit Sub 

End If 

check_Byte$ = "01010001" 

check% = Bit_Mask%(bin_format$, check_Byte$) 
if check% = 81 Then 

Diagnose !Mssg_Text. Text = "Reply: Command complete" 

'ShowMsgData Messages !MsgFi eld, "Reply: command completed" 

'Enable Next command to be Sent 

CommandExe_Go = 1 

lgnore_Replies = 1 
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Exit Sub 
End If 

Check_Byte$ = "00100000" 

check% = Bit_Mask%(bin_format$, Check_Byte$) 
If check% = 32 Then 
GoSub Color_Error 

Diagnose!Mssg_Text.Text = "Error: invalid Device" 
'ShowMsgData Messages IMsgFi eld, "" 

'ShowMsgData Messages IMsgFi eld, "**** Error ****" 
'ShowMsgData Messages iMsgFi eld, "invalid Arm or Device!" 
'ShowMsgData Messages IMsgFi eld, 
'ShowMsgData Messages IMsgFi eld, "" 
End if 

Check_Byte$ = "00010000" 

check% = Bit_Mask%(bin_format$, check_Byte$) 
If check% = 0 Then 
GoSub Color_Error 

Diagnose !Mssg_Text. Text = "Error: Device Specific" 
'ShowMsgData Messages IMsgFi eld, "" 

'ShowMsgData Messages IMsgFi eld, "**** Error ****■' 
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'ShowMsgData Messages iMsgFi eld, "Device Specific Error" 
'ShowMsgData Messages IMsgFi eld, »**********************" 
'ShowMsgData Messages IMsgFi eld , 

End If 

Exit Sub 

Color_Error : 

Diagnose !Mssg_Text .ForeColor = &HFF& 
Diagnose!Mssg_Text.BackColor = &HFFFF& 

Return 

Color_Normal : 

Diagnose !Mssg_Text. ForeColor = &H0& 

Diagnose !Mssg_Text .Backcolor = &HFFFFFF 
Return 
End Sub 

Public Sub CMD_Reissue() 
Dim wait_time As integer 
idle_Time (0.5) 

'wait for Reply to Last Command before Proceeding 
"Do while commandExe_Go = 0 

'ShowMsgData MessageslMsgField, "" 

'Reissue Command if no Reply Recv'd 

'ShowMsgData MessageslMsgField, "Timeout: wait to Reissue" 
'For wait_time = 1 To 50 

'Idle_Time (0.02) 

'Clr Err Flag 

Diagnose I LastErr. value = "True" 
'Check Device status 
'Diagnose I DevStatts. value = "True" 
If commandExe_Go = 0 Then 

'Reissue last instruction (Execute) 

Call Auto_Execute 

'ShowMsgData MessageslMsgField, 

'ShowMsgData MessageslMsgField, "Command " & Diagnose iArgStrTxt & 
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Reissued" 

'ShowMsgData Messages IMsgFi eld, "" 
'Exit DO 
End if 

Call_DoEvents 'Pass Control to operating System 

DoEvents_Flag = False 
'Next wait_time 
' Loop 
End Sub 

Public Sub change_Device(NextDev%) 

waiting: 
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Call ldle_Time(l) 

if commandExe_Go = 0 Then Goto waiting 
CurrentDev = NextDev% 

Diagnose!Option4(CurrentDev - 1). value = True 
End Sub 

Public Sub Auto_Execute() 

'NEW COMMAND SENT - ENABLE REPLY CHECK 

lgnore_Replies = 0 

'lgnore_OEM_Replies = 0 

'Reset Number of Ack's to be sent 

Select Case Last_Cmd_Sent 

case "RSP" 

'If command Sent Not for RSP - Ignore unsolicited RSP Reply's 
If CurrentDev <> 8 Then 

XL_Cmd_Sent = 1 

Else 

XL_Cmd_Sent = 0 
End If 

DevNo_Last_Cmd = CurrentDev 
'place command in Queue 

PushToQueue Transmi tstr(val (Di agnose ! SeqNumTxt) , CurrentArm, CurrentDev, 
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Di agnose ! Argst rrx 

t & "") 



End Select 

If val (Diagnose iseqNumTxt) > 0 Then 

StatusAry%(CurrentArm, CurrentDev) = -1 
'Busy until a reply is received from RSP 

End if 

End Sub 

public Sub Diluter_ECD(reply$) 
Dim delim$, Msg$ 

Dim No_of_Tokens As integer, idx as integer 
Dim reply_token(8) as String 
Dim cEn as Boolean 
Dim DevNo As Integer 

Dim Error_Msg$, Reply_f rom_DevNo$ , cont_byte$ 
Static RepeatedNTimes As integer 

delim = chr$(32): No_of_Tokens = 0 
For Idx = 1 To 10 

Token delim$, reply$, idx, Msg$ 

select Case Msg$ 

Case "02" 

cEn = True 

No_of_Tokens = No_of_Tokens + 1 
reply_token(No_of__Tokens) = Msg$ 
Case "03" 

cEn = False 

No_of__Tokens = No_of_Tokens + 1 
reply_token(No_of__Tokens) = Msg$ 
case Else 

if cEn = True Then 

No_of_Tokens = No_of_Tokens + 1 
reply_token(No_of_Tokens) = Msg$ 
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End If 

End Select 

Next idx 

Select Case No_of_Tokens 

Case 5 'no Error Message 

cont_byte$ = reply_token(2) 

Reply_f rom_DevNo$ = reply_token(4) 
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DevNo = val (Reply_f rom_DevNo$) - 30 

If Diluter_Reply_Ok(cont_byte$, DevNo) Then 

Call ldle_Time(0.5) 

CommandExe_Go = 1 

RepeatedNTimes = 0 

'Debug. Print "Next Cmd Enabled ..." 
End If 

Case 6 'Error Message in Reply Packet 
cont_byte$ = reply_token(2) 
Reply_from_DevNo$ = reply_token(4) 
Error_Msg$ = reply_token(5) 
'Debug. Print "Error Message: "; Error_Msg$ 
RepeatedNTimes = RepeatedNTimes + 1 
'if RepeatedNTimes < 7 Then 

'Call Diluter_Reissue 

'Else 

'MsgBox "Diluter Command Not Accepted !!", vbExclamation, "System 

Error" 

'Reinitialize Diluter & Repeat Cmd 
'RepeatedNTimes = 0 
'Execute_Primitive "Q", "", "", "" 
'Execute^Primitive "W4R", "", "", "" 
'Call Diluter_Reissue 
'End if 

Case Else 'Unknown Reply Format 
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'Debug Print "********************************" 

'Debug. Print "** unknown reply format **" 

'Debug Print 

'Debug. Print "Number of Tokens: " ; No_of_Tokens 

'Debug. Print "unknown Reply: "; reply$ 
End Select 

End Sub 

Public Function Di 1 uter_Reply_ok(ContByte$ , DeviceNo%) as Boolean 
'Response Valid Until Proven Otherwise 
Diluter_Reply_Ok = True 
'Check for valid control Byte Response 
Select Case contByte$ 
Case "40" 

'valid Diluter Reply 
case "51" 

'valid Diluter Reply 
Case Else 
'unknown Reply 
Diluter_Reply_ok = False 
End select 

'Reply Must be From Device Cmd sent To 

if DeviceNo% <> DevNo_l_ast_Cmd Then Di 1 uter_Reply_ok = False 
'Print Result to Debug window 
Select Case Di 1 uter_Reply_ok 
Case True 

'Debug. Print "valid Response to Syringe Command" 
Case False 

'Debug. Print "invalid Response to syringe command" 
End select 
End Function 

Public Sub Diluter_Reissue() 
Dim wait_time as Integer 
'ldle_Time (2) 
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'ShowMsgData Messages !MsgFi eld, "" 

'Reissue command if no Reply Recv'd 

'ShowMsgData Messages iMsgFi eld , "Timeout: wait to Reissue" 
'Clr Err Flag 

'DiagnoselLastErr .value = "True" 

'Check Device status 

'DiagnoselDevStatts. value = "True" 

If commandExe_Go = 0 Then 
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'Reissue last instruction (Execute) 
'Stop 

Call Auto_Execute 

'ShowMsgData Messages IMsgFi eld, "" 

'ShowMsgData Messages IMsgFi eld, "command " & Diagnose! ArgStrTxt & 

Reissued" 

'ShowMsgData Messages IMsgFi eld, "" 
End If 

Call_DoEvents 'Pass Control to operating System 

D0Events_Flag = False 

End sub 

Public Sub Diluter_Status() 
Dim i As integer 

For i = 1 to 7 'Begin Polling for status, (poll up to 7 sec) 

ldle_Time (1) 'Pause for Specified time (1 second) 

DiagnoselDevStatts. value = "True" 'Hit device status button 

DiagnoselLastErr. value = "True" 'clear Last Error Button 

'if Status = "Ready" & Errors Cleared then quit waiting - execute next 
instruction 

If Diagnose IStatusLabel = "Ready" And Diagnose lErrorLabel = "0" Then 

Exit For 
End If 

Call_DoEvents 'Pass control to operating system 

Next i 

DoEvents_Flag = False 
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End Sub 
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Option Explicit 
Global Dev_No as integer 
Global ReaLDevNo as integer 
Global Kloehn_Port as integer 

Global SSpeed(15) as integer 'Current syringe speed 
Global statts(15) as string 'Current syringe status 
Global wait_time(15) As Single 
Global Curr_Pos(15) As Single 
Global ReplyOK As Boolean 
Global Kloehn_Error As Boolean 

Public Function Token(symbol$, stoken$, token_no%, ret_token$) 

Dim Count as integer, startpos as integer, endpos As integer, start_flag As 
integer 

Dim i As integer 

Count = 0: start_flag = 0 

startpos = 1 

For i = 1 To Len(stoken$) 
Select Case token_no% 
case 1 

If Mid$(stoken$, i , 1) = symbols Then 

ret_token$ = Mid$(stoken$, 1, (i - 1)) 
Goto Function_End 
End if 
Case Else 

If Mid$(stoken$, i, 1) = symbols Then 
Count = Count + 1 

If count = (token_no% - 1) Then 
startpos = i + 1 
start_flag = 1 
End if 

If Count = token_no% Then 
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endpos = i - 1 

ret_token$ = Mid$(stoken$, startpos, ((endpos - startpos) + 

D) 

Goto Function_End 
End If 

End If 
End select 

'If i = Len(stoken$) Then 

'ret_token$ = Mi d$(stoken$ , startpos, ((Len(stokenS) - startpos) + 1)) 
■Exit For 
■End If 
Next i 

If start_flag - 1 Then 

ret_token$ = Mid$(stoken$, startpos, ((l_en(stoken$) - startpos) + 1)) 
Else 

ret_token$ = "" 
End If 

Function_End: 
End Function 

Public Sub Set_Params() 
Dim i As integer 
For i = 1 To 15 

wait_time(i) = 0: Curr_Pos(i) = 0 

sspeed(i) = 5000 

Statts(i) = "Unknown" 
Next i 
End Sub 

Public Function Build_OEM_String(XLSeqNum As Integer, XLAddr As Integer, XLCmdS) 
As String 

■Build Command String in OEM Kloehn Format 

Dim Line_sync as string, Hex_msg$ 

Dim STX As string 

Dim etx as String 

Dim check_Sum As Single 
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Dim build_string As String 
'Dim build_checksum As String 
'Define Fixed Bytes 

l_ine_Sync = Chr$(&HFF) 1 OR Chr$(255) 
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STX = Chr$C2) 'Start of Text 

ETX = Chr$(3) 'End of Text 

'ShowMsgData Messages !MsgFi eld, "Current command: "; XLCmd$ 



build. 


.string 




it ii 


build. 


.string 




build_string & STX 


build. 


.string 




build_string & Chr$(Dev_No) 


build. 


.string 




build_string & Trim$(Str(XLSeqNum)) 


build. 


.string 




build_string & XLCmd$ 


build. 


.string 




build_string & ETX 


build. 


.string 




build_string & chr$(ChkSum(bui ld_stri ng)) 


build. 


.string 




l_ine_Sync & build_string 



Bui ld_OEM_St ring = build_string 

'ShowMsgData Messages !MsgFi eld, "New Kloehn Command String: "; xmit_Kloehn_String 

Hex_msg$ = ASCtoHex (Bui ld_OEM_St ring) 

'Debug. Print "OEM Command String Sent: "; Hex_msg$ 

End Function 

Sub SendCmd(Cmd$) 

Kloehn ! Kloehn_Comm. Output = Cmd$ 
End Sub 

Public Function Build_DT_string(XLAddr , XLCmd$) 

'Build Command String in Dumb Terminal Format 

Dim i_ine_sync as string 

Dim STX As String 

Dim ETX As String 

Dim check_Sum As Single 

Dim build_string As String 

'Dim build_checksum As String 

Page 164 



Automated Kinetic Solubility Assay Apparatus and Method.txt 
'Define Fixed Bytes 

STX = Chr$(47) 

ETX = Chr$(13) 

'ShowMsgData Messages !MsgFi eld, "Current Command: "; XLCmd$ 
build_string = 

build__string = build_string & STX 
build_string = build_string & Chr$(Dev_No) 
build_string = build_string & XLCmd$ 
build_string = build^string & ETX 
Bui ld_DT„St ring = build_string 

'ShowMsgData MessageslMsgField, "New Kloehn Command string: "; xmit_Kloehn_String 
'Debug. Print "DT Command String: ", Bui ld_DT_St ring 
End Function 

Public Function ASCtoHex(convert$) As String 
Dim index As Integer, ic$, temp$ 
For index = 1 To Len (converts) 

ic$ = Mid$(convert$, index, 1) 
If index = Len(convertS) Then 

temp$ = temp$ & Hex(Asc(i c$)) 
Else 

temp$ = temp$ & HexCAsc(i c$)) & " " 
End If 
Next index 
ASCtoHex = temp$ 
'Debug. Print "ASCtoHex: "; tempS 
End Function 

Public Sub setsyrCmd(serialPort%, DeviceNo%, Protocols) 
if Kloehn_Port <> serial Port% Then 

Cal 1 Change_Kl oehn_Port (Seri al Port%) 
End If 

Kl oehnlDevNo (Devi ceNo%) .value = True 
select case Protocols 
Case "OEM" 

Kloehn 'Protocol (2) .value = True 
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case "DT" 

Kloehn ! Protocol (1) .value = True 
End select 

Call ldle_Time(0.05) 

End Sub 
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public Sub SyrCmd(Cmd$) 

Dim stop_value As Single 

Dim dummy As Integer, tO As Single 

'If Device Not Ready to Recieve Cmd then wait 

stop_value = Timer + 120 

tO = Timer 

DoEvents_Flag = True 

While Statts(Real_DevNo) = "Busy" And Timer < stop_value 
dummy = DoEvents 

'If we cross Midnight, back up one day 
if Timer < tO Then 

stop_value = stop_value - Cl_ng(24) * Cl_ng(60) * Cl_ng(60) 
End If 

wend 'End while loop when Device is Ready or 2 mi n 
DoEvents_Flag = False 
'write Cmd to TextBox 
Select Case Cmd$ 
Case "VA" 

Kloehn !Cmd_St ring. Text = "IR" 
Case "VB" 

Kloehn !Cmd_St ring. Text = n OR" 
Case Else 

Kloehn!cmd_String.Text = Trim$(Cmd$) 
End Select 

'Press Execute Button 
Call ldle_Time(l) 
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Kloehn !Execute_Button. value = True 

End Sub 

Public Sub Change_Kloehn_Port(New_Port) 
If New_Port > 4 Or New_Port < 1 Then Exit Sub 1 
Select Case Kloehn ! Kloehn_Comm. PortOpen 
Case is = True 

"Debug. Print "Closing Port which is Open" 
Kloehn !Kloehn_Comm. PortOpen = False 
Case is = False 

•Debug. Print "Port is already Closed" 
End select 

Kloehn_Port = New^Port 

Kloehn !Kloehn_Comm.Comm Port = Kloehn_Port 
Kloehn !Kloehn_Comm. Settings = "9600, N, 8,1" 
Kloehn ! Kloehn__Comm. Handshaking = 0 
Kloehn !Kloehn_Comm.InBuffersize = 10200 
Echo = 0 'None 

Casexlate = 1 'Translate to uppercase 
Select Case Kloehn !Kloehn_comm. PortOpen 
case is = True 

'Debug. Print "Port already is Open" 
Case is = False 

'Debug. Print "opening Port" 
Kloehn ! Kloehn_Comm. PortOpen = True 
End select 

Kloehn !KPort(Kloehn_Port) .value = True 
End Sub 

Public Function Kloehn_TDel ay (Steps, speed) As Single 
'Calculates Wait Time Required After issuing Syringe Command 
if steps > 0 And speed > 0 Then 

Kloehn_TDelay = lnt((Steps / speed)) +0.5 

Else 

Kloehn_TDelay = 1 
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End If 

End Function 
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Public Sub CheckstatusByte(status_byte$) 
'OEM Status and Error Code checking 
select Case status_byte$ 
case "40", "60" 

Gosub Statts_OK 

Diagnose !Nlssg_Text .Text = "Reply: Standalone Kloehn" 
Case "48", "68", "4E" , "6E" 
GoSub Statts_OK 

Diagnose !Mssg_Text .Text = "Reply: Reserved Kloehn" 
Case "46", "66", "49", "69", "4A", "6A", "4B", "6b", "4C", "6C" 
GoSub statts_Error 

Diagnose !Mssg_rext .Text = "Reply: Kloehn Hardware Error" 
Case "42", "62", "43", "63", "44", "64", "45", "65", "4D", "6d" 
GoSub statts_Error 

Diagnose !Mssg__Text. Text = "Reply: Kloehn Communications Error" 
Case "41", "61", "47", "67" 
GoSub Statts_Error 

Diagnose !Mssg_Text .Text = "Reply: Error Device Not Initialized" 
End Select 
Exit Sub 
Statts_OK: 
ReplyOK = True 

'Debug. Print "*** No Error ***" 
Return 

Statts__Error : 
Kloehn_Error = True 

'A Reply was recieved indicative of an Error 
'Debug. Print "** Communications Error **" 
Return 
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End Sub 

sub interpret_Reply(reply$) 

Dim delim$, No_Tokens%, Track% 

Dim Msg$, i As Integer 

delim$ = chr$(32) 

No_Tokens% = lnt(l_en(reply$) / 3) 

For i = 1 To No_Tokens% + 1 

Token delim$, reply$, i, Msg$ 

'Stop 

If Msg$ = "FF" Then 

'Debug. Print " ** OEM Line Sync Detected **" 

Track% = 1 
End If 

If Track% = 1 And Msg$ = "2" Then Track% = 2 
If Track% = 2 And Msg$ = "30" Then 

Token delim$, reply$, i + 1, Msg$ 

'Stop 

Call checkstatusByte(Msg$) 
End If 
Next i 
End sub 

Public Sub ldleTillDone() 

'This Sub will Idle the Program until all Pending Cmds are Finished 
Dim Finished as Boolean, stop_value As Single, Count As Integer 
Dim Total_Devices As Integer 
Dim i As Integer 

Dim tO As Single, dummy As integer 
'Find Total No of Devices in Known state 
For i = 1 To 15 

If statts(i) = "Ready" or statts(i) = "Busy" Then 
Total_Devi ces = Total_Devi ces + 1 

End If 

Next i 
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Finished = False 
stop_value = Timer + 120 
tO = Timer 

while Finished = False And Timer < stop_value 
Count = 0 

For i = 1 To 15 

if statts(i) = "Ready" Then 

count = Count + 1 
End if 
Next i 

If count = Total_Devices Then Finished = True 
dummy = DoEvents 

'if we cross Midnight, back up one day 
If Timer < tO Then 

stop_value = stop_value - Cl_ng(24) * ci_ng(60) * Cl_ng(60) 
End If 

wend 'End While loop when all Pending cmds are Finished or 2 mi n 

DoEvents_Flag = False 

End Sub 
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'* @doc INTERNAL 

'* ©module dlportio.bas | 
■ * 

'* DriverLlNX Port I/O Driver interface 

■* <cp> Copyright 1996 Scientific Software Tools, lnc.<nl> 

'* All Rights Reserved. <nl> 

'* DriverLlNX is a registered trademark of Scientific Software Tools, inc. 

■* Win32 Prototypes for DriverLlNX Port I/O 
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■* Please report bugs to: 

1 * Scientific software Tools, inc. 

'* 19 East Central Avenue 

'* Paoli , pa 19301 

■* USA 

1 * E-mai 1 : support@sstnet . com 

'* Web: www.sstnet.com 

■ * 

' * @comm 

' * Author: RoyF<nl> 

■* Date: 09/26/96 14:08:58 

■ * 

'* ©group Revision History 

1 * @comm 

'* $Revision: 1 $ 

'* <nl> 

'* $Log: /DLPortlO/APl/DLPORTIO.BAS $ 

' 1 9/27/96 2:03p Royf 

1 initial revision. 

■ * 

Option Explicit 

Public Declare Function Dl PortReadPortuchar Lib "dlportio.dll " (Byval port As 
Long) As Byte 

'Public Declare Function Dl PortReadPortushort Lib "dlportio.dll" (Byval port As 
Long) As integer 

•public Declare Function Dl PortReadPortulong Lib "dlportio.dll" (Byval port as 
Long) As Long 

'Public Declare Sub Dl PortReadPortBufferuchar Lib "dlportio.dll" (Byval port as 
Long, Buffer As An 

y, Byval Count As Long) 

'Public Declare Sub Dl PortReadPortBufferushort Lib "dlportio.dll" (Byval port As 
Long, Buffer as A 

ny, Byval Count As Long) 
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'Public Declare Sub DlPortReadPortBufferUlong Lib "dlportio.dll" (ByVal port As 
Long, Buffer As An 

y, ByVal count As Long) 

Public Declare Sub Dl Portwri tePortuchar Lib "dl portio.dll" (Byval port As Long, 
ByVal Value as Byt 

e) 

'Public Declare Sub Dl Portwri tePortushort Lib "dl portio.dll " (ByVal port As Long, 
Byval value As I 

nteger) 

'Public Declare Sub Dl Portwri tePortulong Lib "dlportio.dll" (ByVal port As Long, 
Byval val ue as lo 

ng) 

'Public Declare Sub Dl Portwri tePort Buff eruchar Lib "dlportio.dll" (Byval port As 
Long, Buffer As A 

ny, Byval Count As Long) 

'Public Declare Sub Dl Portwri tePortBufferushort Lib "dlportio.dll" (ByVal port As 
Long, Buffer As 

Any, Byval Count As Long) 

'Public Declare Sub Dl Portwri tePortBuf ferulong Lib "dlportio.dll" (Byval port As 
Long, Buffer as a 

ny, Byval count as Long) 

Global MetraBus_Address As string 
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Dim Notebook As Object 

Public Sub Create_Notebook__Page() 

Dim temp$ 

Dim RowOffset As Integer 

'Set up OLE Connection to Excel 

Set Notebook = CreateObject ("Excel .Appl i cation") 
Notebook. Application. Visible = True 
'Open Excel Notebook Template 
Set workbook = 

Appl i cation .workbooks .Add ("C:\MSOffi ce\Templates\Aux_Notebook. xl t") 

Set worksheet = workbook. Worksheets(l) 

'Fill in Notebook Header Information 

Notebook. cells(l, 2). value = Expams ! Screen__Text .Text 

Notebook. Cell s(l, 4). value = Expams ! ins_No. Text 
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Notebook. eel Is (1, 6). Value = Buffer_soln 
Notebook. cell s(l, 8). Value = Filter_value 
Notebook. eel Is (1, 11). value = ss^Conc 
Notebook. cell s(l, 14). value = Cuvol 



'write in Notebook Data 
For rowno = 1 To Total_Samples 

Rowoffset = Rowno + 2 

Notebook. Cell: 

Notebook. Cell: 

Notebook. Cell: 

Notebook.Cell: 

Notebook. eel 1 ■ 

Notebook. Cell : 

Notebook. Cell: 

Notebook.Cell: 

Notebook. cell: 

Notebook.Cell! 

Notebook.Cell! 

Notebook.Cell: 

Notebook.Cell: 

Notebook.Cell: 

Notebook.Cell: 

Notebook.Cell: 

Notebook.Cell: 

Notebook.Cell! 

Notebook.Cell: 
Next ROWNO 

'Print Out Notebook sheet 
worksheet . Pri ntout 
'Save Notebook sheet 

temp$ = Archive_Path & NoteBook_FileName 

worksheet . saveAs temp$ 

'Do not ask if saved in Excel 



s(RowOf f set , 


1) . 


value = 


CP_NO (rowno) 




s(RowOf f set , 


2) . 


value = 


CP_Expt_No (rowno) 


s(RowOf f set , 


3) . 


Value - 


LT_NO (ROWNO) 




s (Rowoffset , 


4) . 


value = 


CP_sol _symb (rowno) 


s (Rowoffset , 


5) . 


value = 


Expt_val i d (rowno) 


s(Rowof f set , 


6) . 


value = 


CP_Data(RowNo, 


0) 


s(Rowof f set , 


7) . 


value = 


CP_Data(RowNo, 


1) 


s (Rowoffset , 


8). 


value = 


CP_Data(RowNo, 


2) 


s (Rowoffset , 


9). 


value = 


CP_Data(RowNo, 


3) 


s (Rowoffset , 


10) 


.value 


= CP_Data(RowNo, 


4) 


s (Rowoffset , 


11) 


.value 


= CP^Data (rowno, 


5) 


s (Rowoffset , 


12) 


.value 


= CP_Data (rowno, 


6) 


s (Rowoffset , 


13) 


.value 


= CP_Data(RowNo, 


7) 


s (Rowoffset , 


14) 


.value 


= CP_Data(RowNo, 


8) 


s (Rowoffset , 


15) 


.value 


= CP_Data (Rowno, 


9) 


s (Rowoffset , 


16) 


.value 


= CP_Data (rowno, 


10) 


s (Rowoffset , 


17) 


.value 


= CP_Data(RowNo, 


11) 


s (Rowoffset , 


18) 


.value 


= CP_Data (rowno, 


12) 


s (Rowoffset , 


19) 


.value 


= CP__Data(RowNo, 


13) 
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workbook. saved = True 
'Quit Excel 
Notebook. Qui t 

'Release object variable End OLE session 
set Notebook = Nothing 

Call ldle_Time(10) 'Allow Connection To Terminate 

End Sub 
[Page 108] 
Serial Com - 1 

Option Explicit 

Global l_ast_Cmd_Sent As String 
Global Target_Device As String 
Global Hach_Port As integer 
Global RSP_Port As Integer 
Global RSP_Dev As Integer 

Global PS_Dev As integer, PS_Speed As integer 
Global ss_Dev As integer, ss_Speed As integer 
Global Ack_sent as integer 
'DLL For Keithley Metrabyte Boards 

'Declare Function Daswordout Lib "dlportio.dll" (Byval port%, Byval pdata%) As 
integer 

'Declare Function DasByteout Lib "dlportio.dll" (Byval port%, Byval pdata%) as 
Integer 

'Declare Function Daswordln Lib "dlportio.dll" (Byval port%) As integer 

'Declare Function Dl PortReadPortushort Lib "dlportio.dll" (Byval port%) As 
integer 

'Old 

Public Declare Function Dl PortReadPortUchar Lib "dlportio.dll" (Byval port As 
Long) As Byte 

Public Declare Function Dl PortReadPortushort Lib "dlportio.dll" (Byval port as 
Long) As integer 

Public Declare Function Dl PortReadPortulong Lib "dlportio.dll" (Byval port As 
Long) As Long 

Public Declare sub Dl PortReadPortBufferuchar Lib "dlportio.dll" (Byval port as 
Long, Buffer as Any 

, Byval count as Long) 

Public Declare sub Dl PortReadPortBufferUshort Lib "dlportio.dll" (Byval port as 
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Long, Buffer as An 

y, Byval Count As Long) 

Public Declare Sub Dl PortReadPortBufferulong Lib "dlportio.dll" (Byval port As 
Long, Buffer As Any 

, Byval count As Long) 

Public Declare Sub Dl Portwri tePortuchar Lib "dl portio.dll 11 (Byval port as Long, 
Byval value as Byt 

e) 

Public Declare Sub Dl Portwri tePortushort Lib "dl portio. dl 1 " (ByVal port As Long, 
Byval value as in 

teger) 

Public Declare Sub Dl Portwri tePortUlong Lib "dlportio.dll " (Byval port as Long, 
Byval value As Lon 

g) 

Public Declare Sub Dl Portwri tePortBufferUchar Lib "dlportio.dll" (Byval port as 
Long, Buffer As An 

y, Byval Count As Long) 

Public Declare Sub Dl Portwri tePortBufferUshort Lib "dlportio.dll" (ByVal port As 
Long, Buffer as a 

ny, Byval count as Long) 

Public Declare Sub Dl Portwri tePortBufferulong Lib "dlportio.dll" (Byval port As 
Long, Buffer as An 

y, Byval Count As Long) 

Public Sub Set_Command_Mode (Optional Format As String, Optional Dev_No%, Optional 
TargetS) 

'Formats = "RSP", "OEM" ?? Look into this why can't Formats be used 
' Dev_No% = Device Number 
'Targets = "rsp", "kloehn" 
Cal 1 Change_Devi ce (Dev_No%) 
If Format = "RSP" Then 

Diagnose! Protocol_RSP(0) = True 

Last_cmd_sent = "RSP" 

Else 

Last_cmd_sent = "OEM" 
Diagnose! Protocol_OEM(l) = True 
End If 

Target_Device = Targets 
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'ShowMsgData Messages 
'ShowMsgData Messages 
'ShowMsgData Messages 
'ShowMsgData Messages 
'ShowMsgData Messages 
'ShowMsgData Messages 



MsgField, M " 

MsgField, M ******* Next Cmd Information ********" 

MsgField, "* Device No. " & CurrentDev 

MsgField, "* Command Sent To: " & Last_cmd_Sent 

MsgField, "* Command Directed To: " & Targets 

MsgFi eld, ,, ************************************* n 



'ShowMsgData MessagesiMsgField, 
End sub 

Public Sub Determine_RSP_Port() 

Dim i As integer 

For i = 1 To 4 

If DiagnoselRSPort(i) = "True" Then 
[Page 109] 
Sena! Com - 2 



RSP__Port = i 

Exit Sub 
End If 
Next i 
End Sub 

Public Sub Determine_Hach_Port() 
Dim i As integer 
For i = 1 To 4 

if HachlHachPort(i) .value = "True" Then 
Hach_Port = i 
Exit sub 
End If 
Next i 
End Sub 

Public Sub Change_RSP_Port(New_Port) 
If New_Port > 4 Or New_Port < 1 Then Exit Sub 
Select Case Diagnose ! RSPComm. Portopen 
Case is = True 

'Debug. Print "closing Port which is Open" 
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Diagnose! RSPComm. PortOpen = False 

Case is = False 

'Debug. Print "Port is already Closed" 

End Select 

RSP_Port = New_Port 

Diagnose! RSPComm. CommPort = RSP_Port 

Diagnose! RSPComm. settings = "9600, N, 8,1" 

Diagnose! RSPComm. Handshaking = 0 

Echo = 0 "None 

Casexlate = 1 'Translate to uppercase 
Select Case Diagnose ! RSPComm. PortOpen 
Case is = True 

'Debug. Print "Port already is Open" 
Case is = False 

'Debug. Print "opening Port" 

Diagnose! RSPComm. PortOpen = True 
End select 
Call initemdQueue 
End Sub 

Public Sub Change_Hach_Port(New_Port) 

If New_Port > 4 Or New_Port < 1 Then Exit sub 

Hach_Port = New_Port 

Hach! MSComml. CommPort = Hach_Port 

Hach!MSComml. settings = "1200 , N , 8 , 1" 

Hach!MSComml.lnputLen = 0 

Select Case Hach ! MSComml. PortOpen 
Case is = True 

'Debug. Print "Port is open" 
Case is = False 

'Debug. Print "Port is closed" 
Hach! MSComml. PortOpen = 1 
End select 

Page 177 



Automated Kinetic Solubility Assay Apparatus and Method.txt 

End Sub 
[Page 110] 
XL1 - 1 



Option Explicit 

1 MSComm event constants 

Global Const MSCOMM_EV_SEND = 1 

Global const mscomm_ev_receive = 2 
Global const mscomm_ev_cts = 3 
Global const mscomm_ev_dsr = 4 
Global Const mscomm_ev_cd = 5 
Global const mscomm_ev_ring = 6 
Global const mscomm_ev_eof = 7 

1 MSComm error code constants 

Global Const mscomm_er_break = 1001 
Global const mscomm_er_ctsto = 1002 
Global const mscomm_er_dsrto = 1003 
Global Const mscomnler_frame = 1004 
Global const mscomm_er_overrun = 1006 
Global const mscomm_er_cdto = 1007 
Global const mscomm_er_rxover = 1008 
Global const mscomm_er_rxparity = 1009 
Global const mscomm_er_txfull = 1010 
' Global variables 

Global CurrentDev as integer 'Current device number 
Global CurrentArm as integer 'Current arm number 
Global Echo 'Echo On/Off flag 

Global Casexlate 'Translate case to upper on typed input 

Global CmdArySO '(0,x) holds cmd sent to XL 

'(l,x) holds reply rec'd 

1 x = 1 to CmdQueueSize 
Global TimesCmdSentO 'number of times cmd sent 

Global CmdQueueSize 'size of the command queue 

Global cmdNextExec 'pointer to next cmd to execute CO if no cmds in 

queue) 

Page 178 



Automated Kinetic Solubility Assay Apparatus and Method.txt 
Global CmdNextAvail 'pointer to next cmd position available 

' (1 to CmdQueueSi ze) 
Global statusAry%() '(1.x) holds holds status of x device for arm #1 

'(2,x) holds holds status of x device for arm #2 
'Status = 0 if ready, -1 if busy 
Global RackCoordO As integer ' (x,y,z) x=Rack (0 to 31) 

y=0 for BL, 1 for FL, 2 for BR, 3 for FR 
z=0 for LX, 1 for LY, 2 for RX, 3 for RY 
'Global ProductSpecsO as String 1 (x) x = 0 to 499 
Global Currentcup As integer 

Global CupCoordO as integer '(x,y) x=cup position 

'y=0: x-coord. 
1 =1: y-coord. 

Global Passwords 

Global winPath As String 

Declare Function GetTickCount Lib "user" () As Long 

Declare Function GetwindowsDi rectory Lib "Kernel " (Byval lpBuffer As string, 
Byval nsize As intege 

r) As integer 
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